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PREFACE 


This document is intended for programmers using the Control Language Services provided 
for the Memorex Operating System. Included in this manual are descriptions of the Control 
Language, files and devices, and cataloged procedures. 


Related information can be found in the following documents. 


® MRX/OS Control Program and Data Management Services, Basic 
Reference 

e MRX/OS Control Program and Data Management Services, Extended 
Reference 


& MRX/OS Operating Procedures 
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I. INTRODUCTION 


Control Language Services is the control and interface program for jobs executing under 
contro! of Memorex Operating System. It performs these basic functions: interprets and 
processes control language statements; inputs jobs and data from the system input reader; 
builds a list of jobs to be initiated (job queue); enters all jobs into the system; allocates 
devices and files; prints a copy of control language statements, error and system messages, 
and job accounting information. Figure 1-1 is a functional diagram of the Control Language 
Services. 


DEFINITIONS 


The following paragraphs describe terms used in discussing the Control Language Services 
programs and operation. 


JOB AND JOB STEP 


A job, by definition, is one or a group of related job steps to be executed in a program 
partition. A step is the execution of a single user program, which may include subroutines 
and other programs linked or called for execution. 


CONTROL LANGUAGE STATEMENTS 


Control language statements direct the execution of a job and of steps within a job. A //JOB 
statement defines the beginning of a job; an //EOJ statement defines its end; an 
//EXECUTE statement defines the beginning of a step within a job. The following is an 
example of the basic required statements for the execution of a job consisting of two job 
steps: 


//JOB NAME=PAY ROLL 
//EXECUTE PGM=ACCT 


File definitions and other 
optional statements 


//EXECUTE PGM=COST 


File definitions and other 
optional statements 


//EOJ 
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e JOB INTERFACE TO THE MRX/40 AND 50 OPERATING SYSTEM 


e SYSTEM JOB HANDLER 


e CONTROL LANGUAGE STATEMENT PROCESSOR 


NOTE: REPRESENTATION OF JOBS DOES 
NOT SHOW ACTUAL STATEMENTS 


Figure 1-1. Control Language Services 
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JOB QUEUING 


Job queuing (Figure 1-2) is a feature of Control Language Services which provides for the 
entry of jobs from the system card reader into the job queue (reserved area on the disc) to 
await initiation and processing. A system input file (SYSIN) is created for each job and 
contains the control language statements for that job. The job which has the highest priority 
in the job queue, and is allowed to run in the partition, will be initiated first. Priority and 
partition are specified on the //JOB statement or assumed by default. Where priorities are 
equal, jobs run on a first-in - first-out basis. 


The maximum number of entries in the job queue is specified during system generation 
(SYSGEN). Whenever more jobs are placed in the card reader hopper than will fit in the job 
queue, the remainder of the jobs in the hopper wait until! interjob time (between jobs), at 
which point additional entries can be made in the job queue. 


INPUT DATA SPOOLING 


Input data spooling, a feature of Control Language Services (Figure 1-3) provides for the 
creation of sequential disc data files from card images as they are encountered in the card 
input stream. When input data spooling is performed, jobs which follow the data statement 
in the card reader are placed in the job queue. If data spooling is not performed, that is, the 
programmer specifies the system card reader as his input device, any following jobs in the 
card reader cannot be placed in the job queue until the job with card reader control has 
completed its processing. That job which selects the system card reader for its input device 
will be selected for initiation in the same manner as all other jobs in the job queue — by 
partition and priority. 


OUTPUT DATA SPOOLING 


Output spooling is an option that may be selected at SYSGEN time. If the spooling option 
is selected, the files to be spooled are queued on the output spool queue at step termination, 
or the files may be queued by the SPOOLO macro (refer to MRX/OS Control Program and 
Data Management Services, Basic Reference manual). SYSOUT is queued at job termination. 


If the spooling option is not selected at SYSGEN time, the //ROUTE statement is treated as 
if it were a //DEFINE statement; and a physical device (if available) is assigned. No Control 
Language Services errors result when a //ROUTE statement is encountered in a system that 
does not have the spooling option, unless an error would have occurred if the option were 
selected. 


The output scheduled for a spooled device is determined by job priority, current form type, 
and job name. Therefore, print/punch files of a job will not necessarily be output 
contiguously on the same spooled device. However, continuity can be achieved by 
specifying a specific device with the same form type for all files. 
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PROGRAM DESCRIPTION 


Control Language Services consists of several modules stored on the system resident pack. 
Logically, these modules include: 


@ Input Reader 
e Job Initiator 
® Step Initiator 
e Step Terminator 
® Job Terminator 


When required, modules are transferred into the problem program partition for execution 
between jobs and job steps. A minimum main storage partition of 8K bytes, which includes 
space for necessary control tables, is required for the modules. 


In a two-partition system, Control Language Services executes in alternate partitions as the 
jobs terminate in them, whereas in a one-partition system, jobs are initiated serially. 
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JOB QUEUE 


FUNCTIONS: 


e JOBS ARE LISTED ON THE JOB QUEUE FOR INITIATION AND PROCESSING AS THEY ARE READ IN FROM 
THE SYSTEM CARD READER 


e JOBS ARE THREADED TO THE OTHER JOBS OF THE SAME PRIORITY 


e THE FIRST JOB READ AT INITIAL PROGRAM LOAD TIME ALLOWED TO RUN IN THE PARTITION WILL BE 
INITIATED REGARDLESS OF PRIORITY 


e@ ALL OTHER JOBS ARE INITIATED BY PRIORITY IN THE PARTITION IN WHICH THEY ARE ALLOWED 
TO RUN 


e JOBS OF EQUAL PRIORITY ARE INITIATED ON A FIRST-IN-FIRST-OUT BASIS IN THE PARTITION IN 
WHICH THEY ARE ALLOWED TO RUN 


e JOB1 READ, QUEVED AND INITIATED 
JOB2 READ AND QUEUED 
JOB3 READ AND QUEUVED 
JOBN READ AND QUEUED, HIGHEST PRIORITY WILL BE INITIATED BEFORE JOB2 OR JOB3 
PROVIDED JOBN IS IN THE QUEUE BEFORE NEXT JOB INITIATION 


NOTE: REPRESENTATION OF JOBS DOES 
NOT SHOW ACTUAL STATEMENTS 


Figure 1-2. Job Queuing 
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DATA FIL=A 


FUNCTIONS: 

@ READS DATA FROM WITHIN JOBS AND WRITES THIS DATA 
ONTO DISC 
ALLOWS LATER JOBS TO BE QUEUED 


e JOB, JO83, AND JOBN REQUEST SPOOLING 
JOB2 AND JOBN-1 HAVE NO DATA ENTERED WITH THEM 
JOBN-2 HAS CONTROL OF CARD READ 


e JOBS 1, 2, 3, and N-2 WILL BE QUEUED 
FILES A, B SPOOLED 


JOB N-2 GETS CONTROL OF CARD READER UNTIL ITS CARD 
DATA FILE tS PROCESSED AND THE JOB IS TERMINATED. 
ONLY THEN CAN JOBS N-1 AND N BE QUEUED, AND FILE 2 
SPOOLED. 


NOTE: REPRESENTATION OF JOBS DOES 
NOT SHOW ACTUAL STATEMENTS 


Figure 1-3. Input Data Spooling 
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INPUT READER 


This module of Control Language Services is loaded into the problem program partition at 
interjob time. As its name implies, the Input Reader reads jobs from the system card reader. 
Upon reading the first statement of a job (//JOB card), space for the system input (SYSIN) 
and the system output (SYSOUT) files are allocated. As each control language statement is 
read, it is output to SYSIN, thus building that file. (Explanation of these files is in Section 3 
of this document.) The Input Reader requires a partition of at least 8192 bytes, but does 
not use more storage even if available. 


Cataloged procedures which consist of control language statements cataloged on a library 
file, are merged with the job, if called. (See Section 4 for a discussion of cataloged 
procedures.) 


A Control Language Services routine called Staternent Interpreter is loaded with the Input 
Reader. The Statement Interpreter performs syntax checking on control statements input 
from the system card reader as well as those cataloged procedures which may have been 
merged. 


Data files in the job stream are also read by the Input Reader, if data spooling is to be 
performed. 


When all the control statements for a job (including cataloged procedures) have been read 
and found to be error free, the job is placed on the job queue to wait for initiation. The 
Input Reader will continue to process jobs until the job queue is filled, the card reader 
hopper is empty, or a job specifies control of the system card reader. The first job in after 
autoload, however, is initiated immediately. 


After it has stopped reading jobs from the system card reader, the Input Reader searches the 
job queue for a job to be initiated in the partition. The Input Reader selects from the entries 
in the job queue as follows: 


1. Jobs assignable to run in the partition. 
2. Within those jobs, the jobs of the highest priority. 
3. Within those jobs, the first job entered into the job queue 


(first-in, first-out). 


As soon as a job has been selected for initiation, the Input Reader releases control of the 
partition. A request is made to the Relocating Program Loader to load the Job Initiator. 


If syntax errors are detected within a job, the control statements that have been written on 
SYSIN are transferred to the SYSOUT file. Those statements which contain errors are 
written with the error indication immediately following the statement. The format of this 
output is: the statement in error, followed by a flag indicator in the form of a question 
mark (?), and an error code followed by a description. 
Example: //DEEF 
? 


nnn UNRECOGNIZABLE COMMAND 
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EOS CATALOGED PROCEDURES 
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J a 
Gain PROGRAM INPUT 
™ PARTITION READER JOB QUEUE 


FUNCTIONS: 


FIEADS CONTROL LANGUAGE STATEMENTS 

MERGES CATALOGED PROCEDURES 

BUILDS JOB QUEUE 

ALLOCATES AND BUILDS SYSIN 

ALLOCATES SYSOUT 

READS DATA INPUT STREAM 

BUILDS SPOOLED FILES FROM DATA IF SPOOLING IS REQUIRED 
BUILDS DEBUG FILES IF REQUIRED 

REJECTS JOBS WHICH HAVE CONTROL LANGUAGE ERRORS, 
BUILDS AND PRINTS SYSOUT FOR REJECTED JOBS 

SELECTS A JOB FOR INITIATION 

e CALLS JOB INITIATOR VIA LOADER 


NOTE: REPRESENTATION OF JOBS DOES 
NOT SHOW ACTUAL STATEMENTS 


Figure 1-4. Input Reader 
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The remainder of the statements for that job are processed and written on the SYSOUT file 
along with information on detected errors for each statement. The Input Reader then prints 
these statements from the SYSOUT file up to the last statement containing an error. SYSIN 
and SYSOUT are closed and purged and the next job is read by Input Reader. 


JOB INITIATOR 


Following the selection of a job to be initiated in a partition, the Job Initiator receives 
control from the Input Reader. Date and switches are initialized. Job Initiator then opens 
the SYSIN and SYSOUT files for the job, causing file description tables to be created for 
them. Entries are made for the job in its Job Control Table (JCT), located near the end 
(high addresses) of the partition. 


Jobs are selected for initiation by TYPE and PRIORITY in queued systems. The TYPE 
designates whether the job is eligible to run in the partition; and of those eligible, the one 
with the highest priority will be initiated first. When priorities are equal, initiation is on a 
first in-first out basis. 


Job Initiator requires at least 4096 bytes to initiate a job. 


The Job Initiator then releases contro! of the partition and a request is made to the 
Relocating Program Loader to load the Step Initiator module of Control Language Services. 


STEP INITIATOR 


Whenever a job step is to be executed in a partition, the Step Initiator is loaded into the 
partition and control is passed to it. 


The Step Initiator processes all of the statements of a step from an //EXECUTE to the 
following //EXECUTE, //IF, or //EOJ. Pointers to //DEF and //PAR statements (which 
define data files and supply parameters) as well as information from control statements, 
contained on the SYSIN file, are moved to the Job Control Table. The Step Initiator out- 
puts //TELL messages to the operator's console as it encounters them in the job stream and 
waits for response whenever PAUSE=YES is coded. 


For a program requesting restart, a flag is set in the //DEFINE record for this file if the file 
has been allocated. If an ‘‘already exists’ error occurs, Step Initiator ignores the error when 
restart is specified. When RESTART=nnn is coded, the checkpoint number is set in the Job 
Control Table (JTCCHKP). 


In the processing of //DEFINE statements, Step Initiator outputs mount messages for 
volumes required but not yet mounted; locates files which do not require allocation; selects 
devices for unit record and tape assignments; and requests disc space through the 
ALLOCATE routine. (See the Control Program and Data Management Services, Extended 
Reference manual for a description of the ALLOCATE macro.) Usage conflicts for files 
(requests for conflicting use of non-shared and shared devices) are also cleared. 
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Once all statements of a step have been processed the BEGIN PGM program-name message is 
displayed on the console, and the program named in the //EXECUTE statement is loaded 
and control is passed to that program. When it has completed execution, the Step 
Terminator is loaded and control is passed to it. If further errors are encountered during 
step initiation, Step Initiator will cause the job to be aborted and SYSOUT listing to be 
provided. 


After the step has been terminated by the Step Terminator, the Step Initiator again is 
loaded and receives control to process the statements of the next step. If the next control 
language statement is an //IF statement, either the next sequential statement is processed or 
the step named on the //IF statement is processed. The result of a test determines which of 
these paths will be taken. (The //IF statement is discussed in Section 2 of this document.) 
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PROGRAM 
PARTITION 


JOB fr 
INITIATOR 


FUNCTIONS 


PERFORMS JCT ENTRIES 

OPENS AND READS SYSIN 

OPENS A SYSOUT FILE FOR THE JOB 

INITIALIZES DATE TO SYSTEM DATE, AND SWITCHES TO ZERO 
CALLS STEP INITIATOR VIA THE RELOCATING PROGRAM LOADER 


Figure 1-5. Job Initiator 
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READER 


READER-PUNCH 


FUNCTIONS: 


READS STATEMENTS FROM SYSIN (SUCH AS, DEFINE AND SET) 
ASSIGNS 1/0 DEVICES TO THE STEP IN THE PARTITION 
PERFORMS TAPE AND DISC VOLUME MOUNTING 

ALLOCATES DISC SPACE REQUESTED ON DEF STATEMENTS 
PRINTS TELL STATEMENTS ON OPERATOR'S CONSOLE 


RE-INITIALIZES DATE TO JOB DATE AND/OR SWITCHES 
(FROM SET STATEMENTS) 


INITIALIZES TIME STEP IS ALLOWED TO RUN 
OPENS DEBUG FILE 


CALLS STEP TERMINATOR IF ANY ERROR IS ENCOUNTERED 
AND FLUSHES JOB TO SYSOUT FOR PRINTING 


CALLS THE PROGRAM FROM THE LOAD LIBRARY VIA THE 
RELOCATING PROGRAM LOADER OR CALLS THE JOB 
TERMINATOR IF NO STEPS REMAIN 


Figure 1-6. Step Initiator 
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If the next statement is an //EXECUTE, the statement is processed by the Step Initiator as 
previously described. When the next statement is an //EOJ, a request is made to the 
Relocating Program Loader to load the Job Terminator module of Control Language 
Services. 


PROBLEM PROGRAM 


The problem program is the program named on the //EXECUTE statement. Step Initiator 
requests the loading of the program into the partition and passes control to this problem 
program. 


The program is responsible for opening and closing the files it will use, and for calling the 
Relocating Program Loader to load additional segments of the program. When the program 
has completed execution, its final service request isa HALT, EHALT, or ABEND. HALT is 
for normal step termination. An EHALT is for job termination. ABEND requests an 
abnormal termination of a job. These service requests cause the Relocating Program Loader 
to load the Step Terminator and pass control to that Control Language Services module. 


STEP TERMINATOR 


Whenever the problem program in a step has completed execution (that is, goes to HALT or 
EHALT or ABEND), the Step Terminator is loaded. The Step Terminator checks for any 
open data files. All files opened by the program must be closed by the program at the end of 
each job step. Failure to do so results in abnormal termination of the step and job (with the 
exception of SYSCHK). 


If the program terminates abnormally and the step is eligible for restart, the operator is 
asked to allow an immediate restart at the last checkpoint taken by the program. If the 
operator reply is YES, the Step Terminator sets the immediate restart bit (bit 1 of JTCLS) 
in the Job Control Table and loads the RESTART program. 


All scratch files are purged (de-allocated) by the Step Terminator unless an immediate 
restart is in progress or abnormal termination is occurring and the user program issued the 
CHKPT macro. All peripheral devices assigned to the step are released for use by following 
steps or by the other partition. 


The Step Terminator closes the DEBUG file and private load library, if used by the step. Job 
accounting information is placed on the SYSOUT file and the Step Initiator is loaded. 


Step Terminator also searches the SYSIN file for a file to be spooled; and if found, it queues 
the file on the output writer queue. 
JOB TERMINATOR 


Whenever an //EOJ Control Language Statement is read by the Step Initiator, the Job 
Terminator is loaded into the partition. 
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Job Terminator closes and purges the SYSIN file. The SYSOUT file is updated with job 
accounting information and is printed. If termination is normal or is abnormal with no 
checkpoints taken, user temporary files are purged. If termination is abnormal and 
checkpoints have been taken, purging of temporary files including SYSIN is bypassed. If 
spooling was not selected at SYSGEN time, SYSOUT is printed and purged. If spooling was 
selected, SYSOUT is queued for printing by the output writer. 


All other files (work and permanent) remain on the packs until they are de-allocated via the 

Purge utility or Purge macro. (The Purge utility is described in the Utility Programs 

Reference manual; the Purge macro is described in Control Program and Data Management 
_ Services, Extended Reference manual.) 


When all termination activities have been completed, Job Terminator releases control of the 
partition. The Input Reader is then loaded into the partition and control is passed to it. 
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READER 
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FUNCTIONS: 

EXECUTES THE PROBLEM PROGRAM 

ACCEPTS PARAMETER STATEMENTS FROM SYSIN FILE 

DISPLAYS MESSAGES ON SYSOUT FILE 

OPENS AND CLOSES ALL DATA FILES USING INFORMATION SUPPLIED BY DEFINE STATEMENTS 
READS OR WRITES DATA ON ALL ASSIGNED 1/0 DEVICES 

ALSO READS DATA FROM SPOOLED DATA FILES CREATED BY INPUT READER 


PROGRAMS WITH AN OVERLAY STRUCTURE CALL PROGRAM SEGMENTS FROM LOAD LIBRARY 
VIA PROGRAM LOADER 


EXECUTES ANY DEBUG INSTRUCTIONS PLACED IN PARTITION 


AT TERMINATION (ABNORMAL OR NORMAL) OF PROGRAM, STEP TERMINATOR IS CALLED 
VIA THE RELOCATING PROGRAM LOADER 


Figure 1-7. Program Execution 
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STEP 
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FUNCTIONS: 


DEASSIGNS DEVICES WHICH STEP INITIATOR ASSIGNED TO 
THIS STEP 


PURGES ANY SCRATCH FILES USED BY THIS STEP 
CLOSES DEBUG FILE AND PRIVATE LOAD LIBRARY, IF USED 


CHECKS FOR ANY FILES OPENED BUT NOT CLOSED BY 
PROGRAM; IF ANY, ABNORMALLY TERMINATES STEP AND JOB 


PLACES ACCOUNTING INFORMATION ON SYSOUT FILE 


CALLS STEP INITIATOR VIA THE RELOCATING PROGRAM LOADER 
TO DETERMINE WHETHER A FOLLOWING STEP IS TO BE INITIATED 
BY STEP INITIATOR, OR THE JOB iS TO BE TERMINATED BY JOB 
TERMINATOR 


Figure 1-8. Step Terminator 
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JOB 


PROGRAM TERMINATOR 
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FUNCTIONS: 


e CLOSES AND PURGES SYSIN FILE 
e WRITES JOB ACCOUNTING INFORMATION TO SYSOUT 
e CALLS INPUT READER VIA THE RELOCATING PROGRAM LOADER 


e PURGES TEMPORARY FILES FOR NORMAL TERMINATION OR ABNORMAL 
TERMINATION WITH NO CHECKPOINTS TAKEN 


e PRINTS AND PURGES SYSOUT IF SPOOLING OPTION NOT AVAILABLE 


e@ QUEUES SYSOUT FOR PRINTING BY OUTPUT WRITER IF SPOOLING 
OPTION IS AVAILABLE 


Figure 1-9. Job Terminator 
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CONTROL FLOW 


Figure 1-10 shows the flow of control in the partition among the program and the modules 
of Control Language Services. 
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Figure 1-10. Contro! Language Services Control Flow 
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2. CONTROL LANGUAGE 


LANGUAGE DESCRIPTION 


The Control Language provides the programmer with a direct interface to Control Language 
Services. The language is composéd of the following statements which control job step, 
interstep, and procedure-oriented activities for the job; input data to the system; and 
provide comments. 


Level Statement Description 

JOB //JOB Identifies the job. 

STEP //EXECUTE Specifies the program to be executed. 

STEP //PAR Specifies information to be passed to the 
executing program. 

STEP //DEFINE Specifies physical and logical qualities 
of a file. 

STEP //ROUTE Specifies allocation information when 

spooling option is selected, or specifies 

physical qualities of unit record device 
when spooling option not selected. 

STEP SET Alters the job date and setting of bits in 
the program option switch table. 

STEP //TELL Output message on operator's console. 

INTERSTEP LAF Tests and transfers control to a subsequent 
step as a result of the test. 

PROCEDURE //DECLARE Identifies first statement of cataloged 
procedure. 

HICALL Used to merge cataloged control language 
statements (procedures) into the control 
language statements of a job. 

DATA //DATA Identifies that which follows as a data file. 
Specifies file name and attributes. 

DATA ‘ha Data delimiter. Identifies the end of a data file. 

JOB //EOJ Identifies the end of a job. 

JOB *(comment) Comments card. 
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FORMAT 


All command statements for the control language have the same basic format containing five 
fields: 


| Identifier ; Command y Keyword-Operand J comment | sequence | 


The following general rules apply: 


Te Each statement must begin on a new card. 

2. The identifier field must begin in character position 1 of each 
statement. 

3. The command field must begin in character position 3. 

4. All fields must be separated by at least one blank character, except 


that no space is allowed between the identifier and command fields. 
5: The keyword-operand and comment fields are free form. 


6. Keyword-operands are separated by commas. No blank characters are 
allowed, except on //PAR and //TELL statements. 


# The keyword-operand field may be continued on more than one card 
except for the //PAR and //TELL statements. 


8. A comma followed by a blank indicates that the keyword-operand 
field is continued on the next card. 


9. On continuation cards the keyword-operand field must not begin 
before character position 4. The identifier field is repeated, but the 


command field is not. 


10. The sequence field occupies the last eight character positions of the 
card. 
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IDENTIFIER FIELD 


The identifier field indicates that the statement is a directive to the Control Language 
Services. The identifier is required on all control statements, including all continuations. 


The following rules apply to the identifier field: 


1. The // identifier must appear in character positions 1 and 2 for all 
control statements (including continuations) except the data 
delimiter and the comment statement. 


Zz: The data delimiter identifier is /* (slash, asterisk, blank) which must 
appear in character positions 1, 2, and 3. Anything other than a 
blank in character position 3 will cause the card to be treated as data. 
Continuation is not applicable for this statement. 


3. The comment statement identifier is * and must appear in character 
position 1. Continuation is not applicable for this statement. 
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COMMAND FIELD 


The commands recognized by Control Language Services function is required. The following 
rules apply to the command field: 


i The commands recognized by Control Language Services must 
appear in one of the following spelled out or abbreviated forms. 


Level Command Abbreviation 
Job //JOB None 
//EOJ None 
//EXECUTE //EXEC or //EX 
//PAR None 
St //DEFINE //DEF 
a //ROUTE //RTE 
NSET None 
//TELL //TEL 
Interstep //\F None 


Procedure ee //DEC 
/ICALL /ICAL 


Data /IDATA //DAT 


Note that there are no commands for the data delimiter and the 
comment statement. 


2. The command field must begin in character position 3. 

or The command field is not repeated for statement continuations. 

4. No space is allowed between the identifier field and the command 
field. 

5. At least one space is required between the command field and any 


following field. 
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KEYWORD-OPERAND FIELD 


The keyword-operand field lists the specifications which support the job processing features 
of the command as required at run time. The following rules apply to the keyword-operand 
field. 


1. The keyword-operand field must be separated from both the 
preceding and the following fields by at least one blank space. 


2. The field is free form with no fixed starting position, although each 
operand or variable symbol is limited to 17 characters maximum. 


a: Each keyword-operand must consist of a descriptive keyword and an 
operand or variable symbol, separated by an equal sign (except on 
//PAR cards, which do not undergo syntax check). 


Example: LOC=YES 
4. Keyword-operands can be separated only by commas (no blanks). 
Example: CAT=NO,VOLUME=65AR22,VER=YES 


5. If the operand portion of the keyword-operand contains more than 
one entry, the multiple items are separated by commas, and the 
entire operand is enclosed by parentheses. 


Example: STATUS=(P,O) 


6. The keyword-operand field may occupy multiple cards. The 
continuation of the field must be shown by a comma followed by a 
blank. The field may not extend past column 72. The only valid 
characters in column 72 is a blank or a comma. 


7. For continuation, the field can only be divided after a complete 
keyword-operand. The continued line must contain the identifier but 
must not contain the command. 


Example: //DEF ID=FIL128,FIL=PROG6382, 


// NUM=1450,CSD=NO,SIZ=50, 
// BLK=10,LOC=YES,ORG=I, 
// SPREAD=4,STA=(P,O), 
// CAT=NO,VOL=65AR22, 
// VER=YES 
8. The number of specifications which may be placed on a record is 


limited only by the number of character positions not committed to 
other fields (identifier on all statements, command on the first 
record of a statement, and sequence field on all statements). Either 
single or multiple specifications may be included on any record of a 
statement. 
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9. The order of the keyword-operands on the statement is optional. 
There are no positional keyword-operands in the control language 
except on the //JOB and //CALL statements. 


Example: //DEF ID=FIL128,FIL=PROG6382,NUM=1450 


This statement could be written with the keyword-operands in any 
order, such as: 


//(DEF FIL=PROG6382,1D=F1IL128,NUM=1450 
or 


//(DEF NUM=1450,FIL=PROG6382,ID=FIL128 


COMMENT FIELD 


The comment field is used to record additional information concerning the program, the 
statement, or any documentation the programmer wishes to provide. The field is optional 
for all statements. 


Although there is no specified format for this field, the following rules apply to its general 
use: 
1. The field is free form in that it occupies no specified character 
positions on the card. Its only restriction is that it must be separated 
from both the preceding and following fields by at. least one blank 


character. 
2. No continuation of comments is allowed. 
3. For the comment statement, the comment field may begin in any 


character position after the * identifier. 


SEQUENCE FIELD 


The sequence field is used to indicate the order in which statements are expected to appear 
in a job. The following rules apply to the sequence field: 


1. The field occupies the last eight character positions of each card. 
Zz. The field must be preceded by one or more blank characters. 
3. All members of the EBCDIC code set can be used for the values in 


the sequence field. 


4. Control Language Services will check ascending sequence and issue 
warning diagnostics for exceptions. 


FORMAT NOTATION 


In the following paragraphs of this section, each control language statement is discussed. 
The statement formats are given using all acceptable forms on each command and keyword. 


The following rules are used in statement formating in this section: 


1. 


All forms of the command are given. Any form may be used in 
coding. 


Example: //EXECUTE 
//EXEC 
//EX 


All references to alphanumeric fields, whether they be 8 or 17 
characters maximum length, have the following restrictions. 
Alphabetic and numeric characters comprise the field, no embedded 
blanks are allowed. The dollar sign ($) is valid. (Data Management 
allows the dollar sign only as the first character of a file name; 
certain system files are preceded with the $ to identify them as 
system files.) The dash (-) is the only other special character that 
may be used within these alphanumeric fields. 


Example: NAME=STEP2-A 
LIB=$UTIL—LIBRARY 


Braces { I indicate that the user has a choice of terms; the default 
case is underlined. 


YES 


Example: CLS= ING 


All forms of optional keyword-operands or optional operands are 
enclosed by brackets [ ]. 


Example: [MSC=code] 
Parentheses ( ) are used to enclose multiple operands associated with 
one keyword. The parentheses are not required if only one of the 


operands is specified for use. 


Example: STATUS=(type,usage) 


STATEMENT SPECIFICATIONS 

The keyword-operands for control statements are defined by the control language, where 
each command is associated with specific keywords. The paragraphs which follow describe 
the keyword-operand specifications for each of the control language statements. The 
following appendices may be used along with the discussion of each statement. 


e Appendix A — Summary of Control Language Statements 


e Appendix B -- Table of Control Language Statement Keyword 
Characteristics 


e Appendix C — Table of required and Optional Keywords by Control 
Language Statement 


JOB LEVEL STATEMENTS 


The job level statements are used to begin and end the command sequence of a job, and to 
provide commentary documentation. These statements include: 


° //JOB 

e //EOS 

e * (comment statement) 
JOB STATEMENT 

//SOB | ithe | oe 


USER 
USE 
TYPE me 

TYP | ~partition-number 


eee 
| 


=user-identification | 


PRI =job-priority-number | 
HOLD _ | YES ] 
HLD NO 


The //JOB statement is required to begin the command sequence for a job. This statement 
describes the job to Control Language Services; assigns a name to the job; identifies the user; 
specifies the partition in which the job may run; and indicates the priority to be assigned to 
the job in the job queue. It also specifies whether the job is available for initiation, or is 
being held pending later release by the operator. If any error is present, the job card is not 
recognized and Control Language Services skips for job card. 
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NAME] _., _ 

\ AM =job-name | (required) 
The system requires a name by which it can recognize and refer to a job. This information is 
supplied by the NAME keyword and is used in creating the job queue entry. In addition, 
NAME is used to qualify scratch and temporary files; SYSIN and SYSOUT files; and 
spooled data files. 


The operand must be unique (only one job of a name may be in the system at one time). 
The operand given with the NAME keyword must be a 1-to-8 character alphanumeric value. 
This keyword-operand is required and must appear on the first card. 


te =user-identification 


SE 


Installations have the option of requiring user identification to the system for job 
accounting purposes. If this information is not required, the USER keyword is optional; it 
may be included in the statement merely as added documentation. The choice of requiring 
user identification is made at system generation (SYSGEN) time. It may be reversed on any 
following generation of the system. 


The operand is a 1-to-4 character alphanumeric field. There is no default. 


TYPE|___.... ‘ 
TYP | partition-number (optional) 
The partition in which a job is allowed to run may be selected by the programmer, using the 
TYPE keyword. The keyword may be used to reflect partition size, partition dedication, or 
job requirements. Partitions are defined at SYSGEN time or at IPL time. 


The operands are 1 and 2 specifying partition 1 or 2, respectively. The system default is 
zero, which means that the job can run in either partition. 


| ae =job-priority-number (optional) 
The system provides the ability to designate the order in which jobs run within a partition. 
The PRIORITY keyword is used to define that order. 


Jobs are selected from the queue first by the TYPE keyword (jobs eligible to be initiated in 
the partition) and then according to the PRIORITY keyword (highest priority job within a 
partition). Within a partition, jobs of the same priority are selected for initiation on a 
first-in, first-out basis. 


The operand is a 1-digit numeric field of values from 1 to 9. The highest priority is 
designated by the largest number. A default is set by the installation at SYSGEN time. 


pore _ | NO} (optional) 


Control Language Services allows the operator to control the release of a job from the job 
queue. This control is provided by the HOLD keyword. 


When HOLD=YES is encountered, a message is displayed on the operator’s console 
informing the operator that the named job is being held in the job queue. After the operator 
has released the job, it will be selected for initiation according to the operands of the TYPE 
and PRIORITY keywords specified. If type and priority are not specified, the installation 
defaults are used and the job will be selected on a first-in, first-out basis as per those values. 


When HOLD=NO is specified, or the HOLD keyword is not specified, the job will be 
selected for initiation without operator intervention. The same conditions for job selection 


apply. 
Sample //JOB Statement 


The following is an example of a //JOB statement. The required keyword, NAME, and some 
optional keyword-operands are used. 


//JOB NAME=JOB6A2,TYP=2,PRI=8,HOLD=NO 
In this example, the job name is JOB6GA2, which must be unique. The job is allowed to run 
in partition 2 at a priority of 8. This job will not be held in the job queue for operator 
release. Because the USER keyword-operand is omitted, it is assumed that the installation 
does not require user identification. If USER is required, the job will be rejected by the 
Input Reader Module of Control Language Services. 
EOJ STATEMENT 

//EOJ 
The //EOJ statement is required to terminate the command sequence for a job. There are no 
keyword-operands associated with this statement, but the comment and sequence fields may 
be used. 
COMMENT STATEMENT 


*comment 


The comment statement is provided to allow the programmer to include comments in the 
job stream. It is never required. The comment statement may occur any place within a job. 


The comment statement is identified by * in character position 1; the actual comment may 
begin in any character position thereafter. Since there are no command and 
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keyword-operand fields associated with this statement, the comment can occupy the 
remainder of the card except for the sequence field (last eight character positions). 


Sample Comment Statement 


*OUTPUT IS PROCESSED BY JOB REPORT 62 


STEP LEVEL STATEMENTS 


The statements at the step level specify the program to be executed and indicate the 
run-time environment for that program. These statements include: 


e //EXECUTE 
@ //PAR 

e //DEFINE 

8 //SET 


e //TELL 


EXECUTE STATEMENT 


//EXECUTE 
//EXEC 
//EX PGM=program-name 
({ Neue =step-name | 
NAM 
({ “ar | =load-library-name | 


[FE | ain] 


(ea } =f 


COND 
aa -| o 
DEB NO 
ee : fon 
RES 
nan 


The //EXECUTE statement is the first statement of every step. It identifies the program to 
be executed, names the job step, and specifies the library on which that program resides. 


Also indicated are the time that the step is to be allowed to run and the conditions under 
which a dump is to be made. 
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PGM=program-name (required) 


This keyword specifies the name of the program to be executed. The program name is a 1- 
to 8-character alphanumeric field, which is the same name as that by which the program is 
cataloged on the library. If RESTART=nnn option is specified, PGM=RESTART must be 
specified. 


NAME | _ : 
NAM step-name (optional) 
The system allows job steps to be named and identified by the NAME keyword. If the step 
is to be referenced by the GO keyword of a preceding //IF statement, this keyword-operand 
is required. (The //IF statement is described later in this section.) The operand is a 1- to 
8-character alphanumeric field. 


LIBRARY | _ ‘ae : 
LIB. load-library-name 
This keyword specifies the library on which the program to be executed resides. it is 
required whenever the program resides on a private load library rather than on the standard 
system load library (SSYSLODLIB). The operand is a 1- to 17-character alphanumeric field. 


lf the library is centrally cataloged, no //DEFINE statement is required for the library. 
Otherwise the //DEFINE statement must be included with ID=$LODLIB. 


TIME|__. ; 
ce minutes (optional) 


This keyword-operand gives the maximum time, in minutes, that the step is allowed to run. 
If the operand defined is executed, the step will be terminated abnormally and the job will 
be aborted. 


A 4-digit numeric field is used for this operand. Maximum time that can be specified is 1440 
minutes, which allows the step to run indefinitely. If 1439 minutes is specified, the step will 
be allowed to run for 23 hours 59 minutes before being aborted. The default is set by the 
installation at SYSGEN time. 


pump}_ | YES (optional) 
pup {~)NO 
COND 


The system allows the conditions for making a main storage dump to be specified. When 
DUMP=YES, a dump of the user partition is made at the end of the step regardless of the 
termination status (normal or abnormal). When DUMP=NO, the dump is not made 
regardless of the termination status. If the keyword is not specified or if DUMP=COND, a 
dump will be made upon abnormal termination of the step, but not upon normal 
termination. 
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ieee = ne (optional) 


DEB | NO 


This keyword* allows the programmer to call the Debug routine for use in his program. This 
utility provides for snapshot dumps and optional step termination at specified breakpoints. 


When DEBUG=YES, Control Language Services opens the Debug directive file created with 
a Control Language //DATA statement. Control Language Services will also inform the 
Relocating Program Loader that the Debug utility is to receive control over processing. 
When DEBUG=NO, the program is not run in Debug mode. The default is NO. 


YES 
RESTART] _ 
ee =) NO | (optional) 
nnn 


This keyword indicates a step’s eligibility for restart? after abnormal termination. RES=YES 
allows immediate restart if a step terminates abnormally; RES=NO does not. 


The nnn operand is a 1- to 3-digit decimal number indicating location for deferred restart 
attempt. The nnn value is taken from the console run sheet or the SYSOUT listing of the 
previous run of this step. If a deferred restart is being attempted, PGM=RESTART must be 
specified in addition to the RESTART keyword specification in the //EXEC statement. 


Whenever RESTART is specified in the //EXEC statement, a //DEFINE statement with 
ID=SYSCHK for the checkpoint file must also be included in the Control Language 
statements. 


Sample Execute Statement 


The following is an example of an //EXECUTE statement. The required keyword, PGM, and 
some optional keyword-operands are used. 


//EXEC PGM=LOD618,DEBUG=YES,LIB=ULIB20, 
// NAM=STEP32,TIM=80 


In this example, the program LOD618 will be executed from the library named ULIB20. 
The step name is STEP32 and may be branched to by a preceding //IF statement. The 
program will be allowed to run 80 minutes before being aborted. The Debug routine will run 
with this step. Breakpoints given in the Debug data directive file that apply to this step will 
be activated. Since DUMP is not specified, a dump will be taken on abnormal termination, 
but not on normal termination of the step. 


* All programmers using the DEBUG keyword must be familiar with the Debug routine and the contents of the Debug 
directive file. This information is available in the Control Program and Data Management Services, Basic Reference 
manual. 


TRestart information is discussed in the MRX/OS Control Program and Data Management Services, Basic Reference 
manual. 
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PAR STATEMENT 


Run time parameters are supplied to system programs and user programs through //PAR 
statements. The parameters listed on //PAR statements are read by Control Language 
Services and transferred to the SYSIN file. //PAR statement parameters which are included 
in the job stream for the execution of a system program (such as the COBOL Compiler) are 
read by the system program itself. Those parameters supplied by //PAR statements to be 
used by the problem program require an ACCEPT macro to be read from the SYSIN file. 
(Appendix D contains a brief description of the ACCEPT macro; further details can be 
found in the Control Program and Data Management Services, Extended Reference manual.) 


The specified parameters in the //PAR statement may have the same form as other control 
language statements, using keyword-operands, or they may take any other form acceptable 
to the program using them. Regardless of the form of the parameters, the identifier, 
command, and sequence fields must conform to the format specifications of all other 


contro! language statements. The //PAR statement may be continued, but each statement 
must begin with //PAR. 


Sample //PAR Statements 


The following examples show //PAR statements which might be included in the control 
language statements of a step: 


//PAR OP=SMAP,KEY=124311,DECK=YES 
//PAR BRANCH=ABK, 

//PAR PAY:TYPE42/CONT 

//PAR SPECIAL-ORDINARY 


In these examples, keyword and other operand forms are used. The program executed in the 
step uses the ACCEPT macro to obtain the //PAR statement from the SYSIN file and 
processes the operands internally. 


NOTE 
A special restriction applies to //TELL and //PAR statements: No more than 


17 characters may appear in consecutive columns without a delimiter (blank, 
comma, equal sign). 
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DEFINE STATEMENT 


//DEFINE 
//DEF IDENTIFIER 
IDENT =file-identifier 
ID 
FILENAME) _ 
FIL =name 
S 
jeu Jr 
STA W | 
| 
(‘Ls ]) 
U 
(MSC=code ] 
name 
pe | (name,quantity) ] 
address(es) 
Aven | volume-id 
VOL (volume-id,volume-id,. . .) 
[csp= icon 1] 
ORGANIZATION 13} ] 
: ORG . 
Ss 
[ LABEL) _ JN ] 
LAB [- : 
B 
RETENTION | _ 
[ RET =number | 
[ ance |= number size] 
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The unshaded areas in the preceding representation of the DEFINE statement apply to all 
file and device use, and disc space allocation. The shaded areas apply to disc space allocation 
and disc file expansion. Exceptions are noted in the text. 


The //DEFINE statement is the run-time interface between Data Management and Control 
Language Services. The program is independent of the name of the file to be processed as 
well as the volume or device on which the file resides. Control Language Services performs 
all device assignments for steps and allocates space for new disc files from //DEFINE 
statements. 


The //DEFINE statement specifies the files to be used and the device and volume 
requirements of a step. This statement may indicate the type of file, specify the use of a 
permanent file, define the attributes of the data file, and establish a logical relationship with 
the internal file definition of the program. The //DEFINE statement is required for a 
specific device or volume requested, and for file allocation. 


Before coding //DEFINE statements, the programmer must be familiar with the contents of 
the MRX/OS Control Program and Data Management Services, Basic Reference manual for 
logical 1/O processing and the MRX/OS Contro/ Program and Data Management Services, 
Extended Reference manual for physical and block !/O processing. For the proper use of 
//DEFINE statements for telecommunications, the user should refer to the MRX/OS 
Telecommunications Reference manual. 


IDENTIFIER 
IDENT =file-identifier (required) 
ID 


The operand of this keyword supplies a logical name to the data file. That is, IDENTIFIER 
specifies the name by which the program will open, close, and transfer data to or from a 
data file. This file identifier must be unique within a job step. 


The operand is a 1- to 8-character alphanumeric (including $ and dash) field. SYSIN and 
SYSOUT are illegal operands for the IDENTIFIER keyword. This keyword-operand is 
required on all //DEFINE statements. 


Sia =name (required for disc and tape) 
This operand supplies label information. If the file is being allocated, the FILENAME 
operand will become the catalog name for disc data files, or the label entry for tape files. 


The operand is a 1- to 17-character alphanumeric field. The first character may be A-Z, 0-9, 
or $. Imbedded dashes are allowed, but not imbedded blanks in the succeeding characters. 
This keyword-operand is required for all tape and disc files, but does not apply to unit 
record files. 


2-16 


For all physical 1/O, the FILENAME operand must be PIO. For telecommunication lines, 
except PIO, FILENAME=TP is used. Since the PIO specification requires the exclusive use 
of the device/volume requested, this specification is not legal for shared devices. — 


FILENAME=DUMMY indicates that label information and allocation attributes will be 
specified within the program. FILENAME=NULL specifies an optional file. 


S 

aa JT aa s ee 

fale Wi" hsta (>, U | (optional, disc only) 
P 


This keyword is used to specify the type of disc file used. The first operand specifies the 
type as scratch (S), temporary (T), work (W), or permanent (P). The second optional 
operand specifies usage for permanent files only. This usage may be specified as input (I), 
update (U), or output (O). The default for the first operand, which specifies type, is T. If 
the first operand is specified as P and the second operand is not specified, the default for it 
is O. 


Detailed description of the file types and usage is given in Control Program and Data 
Management Services, Basic Reference manual. A brief description follows. 

Scratch Files 

Scratch files are allocated in a step and may be used only for the duration of that step. They 
are automatically purged at step termination. These files are always listed on the central 


catalog; therefore, CATALOG=NO is an illegal keyword-operand. Scratch files may never be 
shared. 


Temporary Files 

Temporary files are allocated in a step and may be used for the duration of the job. They 
are automatically purged at job termination. These files are always listed on the central 
catalog; therefore, CATALOG=NO is an illegal keyword-operand. Temporary files may 
never be shared. 


Work Files 


Work files are allocated permanently. They are not automatically purged, the Purge utility is 
used to perform this function. Work files may never be shared. 
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Permanent Files 


Permanent files are allocated permanently. They are not automatically purged; the Purge 
utility is used to perform this function. Permanent files may be shared, depending upon the 
usage operand specified for the file (Table 2-1): 


e Input — when a usage of input is specified, the file may be opened 
only for input in that step. This file may be shared with programs 
requesting it for update or input in the other partition. 


® Update — when a usage of update is specified, the file may be opened 
for input or update in that step. This file may be shared only with 
programs requesting it for input in the other partition. 


® Output — when a usage of output is specified, the file may be opened 


for input, update, or output in that step. This file may never be 
shared with a program in another partition. 


Table 2-1. Sharing of Permanent Files 


Allowable Shared Usage 


//DEFINE 
File Usage 
INPUT 
UPDATE 
OUTPUT 


MSC=code (optional) 


This keyword allows a modification security code to be specified for a permanent or work 
disc file. The code is used by Data Management to exclude unauthorized access to the file. 


This keyword applies to both allocation and use of disc data files. The operand is a 


4-character EBCDIC code. Embedded blanks and the characters (), = & may not be used. 
The default code is blanks. 
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name . 
| oan = { (name, quantity) (optional) 
address(es) 


This operand specifies the generic name and quantity or the device address(es) to be used 
for the file. The generic names of devices for MRX/OS are listed below. The default is 
DEV=DISC. 


DISC 
TAPES (800 bpi) 

TAPE 16 (1600 bpi) 

CRD or READER 

CRDPCH,RDRPUN,READPUNCH, or READERPUNCH 
PRT or PRINTER (600 or 1200 Ipm) 


SYSCRD is used to specify the system card reader whether it be a render or reader-punch 
(see //DATA Statement FIL=SYSCRD). 


In addition, the following generic names are used for telecommunication lines. Note that the 
last two characters are equipment types, defined in the Telecommunications Reference 
manual. 


TP80 
TP84 
TP86 
TP88 
TP8A 
TPA4 
TPA6 
The user may specify the device requirements by. 
Vs Generic name only; quantity of 1 is implied. 


2; Generic name and quantity (quantity greater than 1 applies only to 
tape, disc, and TCOM; maximum quantity of 2 for tape). 


Example: DEV=(TAPE8,2) 

3. Address of a device as specified in the unit table. 
Example: DEV=101 

4. Addresses of the devices requested as specified in the unit tables. 
Example: DEV=(302,303) 


Specifying devices by device address instead of generic name allows two files to be applied 
to the same device. 
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vei _ volume-id 
VOL (volume-id,volume-id,. . .) 


This specifies the volume identifier for file location. VOLUME is a required entry for disc 
files that are not listed on the central catalog. For tape files, VOLUME is required for the 
first or only volume of all files. In the case of multi-volume files, Data Management will 
write this volume identifier on each reel. In the case of multi-volume disc files, the user must 
specify the volume identifier. This keyword does not apply to unit record files. 
VOL=WORK may be used to specify a disc or tape volume with no volume identifier. 


This operand is a 1- to 6-character field. It is an alphanumeric value given as the volume 
identifier. 


YES 


NO (optional) 


cso-| 


This specifies whether or not data in the file is to be written in common stored data format. 
YES indicates that common stored data format is used; NO specifies that the data is not in 
common stored data format. The default is CSD=YES. If the common stored data format is 
used, four bytes are added to the record size for the control header. 


ORGANIZATION | _ |= 
=4 (optional) 


ORG 


This specifies the type of file organization as sequential (S), relative (R), or indexed (1). The 
system default is sequential file organization. (See the Control Program and Data 
Management Service, Basic Reference manual for additional discussion of file organizations.) 


Ss 
N 
ied =< U (optional, tape only) 

LAB 


B 


This specifies the type of tape label processing. The LABEL operand (valid for tape only) on 
the //DEFINE statement overrides any label specification for that file in the Buffer 
Description Table created by the Data Management DEFSF macro. The options are: 
standard labeled (S), nonstandard labeled (N), unlabeled (U), bypass label (B), and ignore 
tape label (I). (Refer to Section 3 of this manual and the Control Program and Data Manage- 

ment Services, Basic Reference manual for further details.) | 
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RETENTION =number (optional, tape only) 
RET 

This designates the number of days a tape file is to be retained before it is allowed to be 
purged. Data Management uses this information to calculate the expiration date to be stored 
on the file label. RETENTION is ignored for input files. 


The operand for RETENTION is a 1- to 3-digit numeric field. The system default (zeros) is 
used when this keyword is not given. In that case, the expiration date on that file will be the 
same as the creation date. 


| ao =(number,size) (optional, TCOM only) 


This keyword specifies partition space required for buffers. It has a two-part operand. The 
first is the number of buffers to be created for this line, and the second operand is the size 
of each buffer. 


The number operand is a 1- to 3-digit numeric field with a value in the range of 1 to 999. 
The size operand is a 1- to 5-digit numeric field with a value in the range of 1 to 49999. 


The buffers created with this keyword-operand are located in the partition space pool of the 
program partition in which the job runs and must not exceed the space available in the pool. 


Sample //DEFINE Statements 


The following are examples of //DEFINE statements that provide for device assignment and 
for the use of already allocated disc files. 


Sarnia: 1: //DEF 1D=SM220,DEV=PRT 


In this example, a printer is assigned to the current job te The file is called SM220 in the 
program. 


Sample 2: //DEF !D=CLASS1,FIL=DA1143,VOL=136921,RET=3, 
// DEV=TAPE8,CSD=YES 


In this example, a tape unit is assigned to the step with a tape volume label, 136921, and 
tape file label, DA1143. The tape file is assumed to have standard labels. The data is in a 
common stored data format on an 800 bpi unit. The volume is to be retained for 3 days. 
The program calls the file CLASS1. 


Sample 3: //DEF FIL=MASTER6BQ3,ID=SOURCE2,STA=(P,0O), 
// MSC=HR32 
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In this example, a permanent cataloged disc file is to be used. The file resides on shared 
resources but will not be shared because its usage is specified as output. The file is called 
SOURCE2 in the program. The catalog entry is MASTER6BQ3 with a modification security 
code of HR32. (The order of listed keyword-operands is free form.) 


DISC ALLOCATION KEYWORDS 


The following paragraphs describe additional //DEFINE statement keywords that are 
applicable to disc space allocation. VERIFY=YES may also be used for disc 1/O to override 
the use of VER=NO at allocation. The SIZE and BLOCK keywords may also be used for the 
tape files, as noted in the discussion of those keywords below. 


NUMBER . F : 
bree = | Taal (required, disc allocation only) 


This keyword-operand specifies the number of logical records for which space is to be 
allocated in a new file and optionally followed by the number of logical records to be stored 
in the catalog for dynamic expansion. If this operand is not given, or is zero, space 
allocation will not occur. If the expansion factor is omitted, zero is stored in the catalog. 
Dynamic expansion of sequential files occurs only at the logical |/O level. 


The n and e operands are 1- to 6-digit numeric values. Use of the NUMBER keyword 
excludes the use of EXPAND in the same //DEFINE statement. 


eg =(record-size[,key-size] ) (optional, disc allocation and tape I/O) 
This specifies the number of bytes per logical record for all file organizations and the 
number of bytes in the key for indexed files. For variable length records, the record size 
given is the maximum record size. If CSD=NO is not specified, the record size is 
incremented by four by the system. 


Record size is a 1- to 4-digit numeric value in the range of 1 to 9999. Key size is a 1- to 
3-digit numeric value in the range of 1 to 255. 


This keyword may also be used for tape files. When specified in the //DEFINE statement 
and also within the program data transfer request, the specification within the program 
overrides the //DEFINE statement value. 


The default for this keyword is 252 bytes, and applies to both tape and disc. (If CSD=YES 
the effect is a total record size of 256 bytes.) 


2-22 


(optional, disc allocation, disc 


expansion, tape 1/O) 


| BLOCK 
BLK 


=(records per block [,keys per block] ) 


This specifies the blocking factor to be used in all disc file organizations. Also the number of 
keys in each key index information block may be specified for indexed files. For variable 
length records, the data blocking factor designates the minimum number of records per 
block. 


The operands for this keyword are the number of records in the disc data block and 
optionally the number of keys in the index block. Both operands of this keyword are 1- to 
3-digit numeric fields. The value of each operand is in the range of 1 to 255. The default for 
disc is 1 record per block. 


The keyword may also be used for tape files. In this case, only the first operand (number of 
records) is used. When specified both in the //DEFINE statement and also within the 
program data transfer request, the value given within the program overrides the //DEFINE 
statement value. The default for tape is 1 record per block. 


A more detailed explanation of this keyword is given in Control Program and Data 
Management Services, Basic Reference manual. 


YES 
(optional, disc allocation, disc expansion) 


LOCATION | _ 
io | 7 | no 


This defines the cylinder boundary for direct access storage space allocation. The numeric 
value is valid only if the VOLUME keyword is coded. The default is NO. The operand 
meanings are: 


1. LOCAT!ION=n specifies the cylinder number on which the file is to 
begin. The operand n is a 1- to 3-digit numeric value, with a range of 
1 to 202. 

2. LOCATION=YES specifies that the file is to begin on a cylinder 


boundary selected by Data Management. 


3. LOCATION=NO allows the file to begin at any point on the pack. 


CATALOG| _ | YES ; ; : 
(ent : | NO (optional, disc allocation) 
This specifies whether or not the FILENAME and LOCATION of the file will be placed in 
the central catalog. CATALOG=YES specifies that the file entry will be placed on the 
system central catalog as well as the pack catalog. CATALOG=NO specifies that the file will 
not be entered on the central catalog. When CATALOGE=NO is used, the VOLUME keyword 
is required. 
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CATALOG=NO applies only to work and permanent files at allocation time, and is illegal 
for scratch and temporary files. The system default is CATALOG=YES. 


VERIFY | _{ YES . : : ; 
| WEB = | NO (optional, disc allocation, disc 1/O) 


This specifies burst-check. At allocation time, this option is recorded in the catalog entry. 
VERIFY=YES specifies that all writes to the file will be verified. VERIFY=NO specifies 
that no burst-check will occur. If this Keyword is omitted, the system default 
(VERIFY=NO) will be used. 


If VERIFY=NO is given at allocation time, the user may override this by specifying 
VERIFY=YES in the //DEFINE statement for the execution of a particular job step. This 
override will not, however, become a permanent characteristic of the file. 


YES 
CONTIGUOUS | _ JNO , ; : . : 
CON | - sx | Sp (optional, disc allocation, disc expansion) 
MX }’( MP 


This keyword-operand applies to both disc space allocation and disc file expansion. It 
specifies whether the space request is for a segmented or unsegmented block of disc space, 
and if specified, whether the space may occupy more than one pack. Extent and pack are 
coded as SX (single extent), MX (multiple extent), SP (single pack), and MP (multiple pack). 
Any combination of extent and pack is allowed. CON=YES means (SX,SP); and CON=NO 
means (MX,MP). 


The CONTIGUOUS option applies only to the current space request. File expansion always 
results in the addition of a segment (represented by an extent in the FDT for that file): it 
will not necessarily yield a totally contiguous file, even if CON=YES was coded for both 
allocation and expansion. 


ee = (index files only) 


This specifies the spread factor, or the frequency with which consecutive logical records of a 
file are written on a track. Use of the spread factor allows for faster sequential processing of 
records since disc access time is not lost in retrieving following records (Figure 2-1). 


Operand n is a 1- to 2-digit numeric value in the range of 1 to 10 specifying a spread of 0-9. 


When this keyword is not used for an indexed file, logically sequential blocks of records are 
physically adjacent on a track. 
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Physical 
Block No. 


Logical 
Block No. 


Figure 2-1. Indexed File with Spread Factor of 4 


IVOLUME 
IVOL =volume-identifier (index files only) 
Ivo 


This specifies the volume on which the key index information file is to reside. If the 
IVOLUME keyword is not used for indexed files, the key index information file will be 
placed on the first volume specified in the VOLUME keyword-operand. The operand is a 1- 
to 6-character alphanumeric field. 


ILOCATION) (NO | 
ILOC =; YES (index files only) 
ILO n 


This specifies the cylinder boundary for the beginning of space allocation for the key index 
information file. It is ignored if IVOL is not used. 


There are three operands for this keyword; the default is NO: 
1. ILOCATION=n specifies the cylinder number on which the key 


index information file is to begin. The operand n is a 1- to 3-digit 
numeric value with a range of 1 to 202. 


2. ILOCATION=YES specifies that the key index file is to begin on a 
cylinder boundary selected by Data Management Services. 

3. ILOCATION=NO allows the file to begin at any position on the 
pack. 
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Sample //DEFINE Statement for Disc Space Allocation 


The following is an example of a //DEFINE statement that will result in the allocation of 
disc space: 


//DEF ID=GATHER1,FIL=SL!ID321BG,STA=(P,O), 
// NUM=1450,SIZ=100,BLK=10, 
// ORG=S,CON=YES 


In this example, space will be allocated for 1450 records of 100 bytes each, blocked 10 
logical records to a physical block. The file will be a sequentially organized permanent 
cataloged file in common stored data format, and will reside on shared disc (as defined at 
Initial Program Load time). 


The file is cataloged as SLID321BG with a blank modification security code and is known in 
the program as GATHER. Since the STATUS keyword specifies output, a request for the 
same file by another partition (while the step in the first requesting partition is executing) 
will cause the step in the second requesting partition to suspend initiation until the first step 
has terminated. At that time, the requested file is available for use by the step in the second 
partition, and initiation is continued. 


DISC FILE EXPANSION KEYWORD 


(expansion of sequential files only) 


EXPAND 
EXP 


This specifies the number of records by which an already allocated sequential file is to be 
expanded. This expansion takes place during step initiation. When the EXPAND keyword is 
used, the BLOCK keyword is required if its value is other than one (default for block 
keyword). The blocking factor specifies the same value as that given for that keyword when 
the file was allocated. The CONTIGUOUS and LOCATION keywords may also be used for 
file expansion. These keywords will apply only to the expanded area. 


This operand is a 1- to 6-digit numeric value. Use of this keyword excludes the use of the 
NUMBER keyword in the same //DEFINE statement. 
Sample //DEFINE Statement for Expansion 


The following is an example of a //DEFINE statement that will result in the expansion of an 
already allocated disc file: 


//DEF FIL=PAY473ROLL,ID=PAY3,EXP=800 


// BLK=40,CON=YES,STA=(P,0), MSC=14WR, 
// VOL=BLY632 
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In this example, an already allocated disc file is expanded 800 records, blocked 40. The 
blocking factor must be the same as that of the existing file. The file is listed on the pack 
catalog of volume BLY632 as PAY473ROLL, with a modification security code of 14WR. 
The request is for contiguous space. The file being expanded is permanently allocated, with 
usage as Output. The file will be called PAY3 in the program. 


Summary of //DEFINE Statement Keywords 


Table 2-2 gives a summary of //DEFINE Statement keywords according to I/O level and 
device category. 


ROUTE STATEMENT 
//ROUTE 
/IRTE IDENTIFIER 
| IDENT ein 
ID 
ae eed 
FIL NULL 
PRINTER 
PRT 
READERPUNCH 
[| | - ¢ READPUNCH 
RDRPUN 
CRDPCH 
device address 
[ Vee | : Pagal 7 ] 
VOL (volume-id,volume-id,. . .) 
| YES 
one NO 
aC 
ne a] 
BLK 


[Sz |=n J+ 
{sro}. | ves) 


C {nun Lines} d 


name 
[Ucs= | (name, FOLD, VER) Ae 
(name,NOFOLD,NOVER) 
eng Seal es 
HLD |- 


Hey eine oe 
[eon }=ne | - 

COP 
i eo ace 


*Disc file allocation and disc file expansion parameters. 
**Keyword passes information to the spooling function. 
***Parameters for both spooler and unit record device. 
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Device Logical and Block 1/O 
Catetory ———s 
Card Reader Disc Space Disc File 
Punch or Disc File Allocation Expansion All 
Keyword Printer Tape TCOM 1/0 Only and 1/O and 1/O Devices 


a 


S 
m 
x 
fe) Oj 2 
o s | 
Hyer 
hb 


File and Device Use 
2/2/zle|/2ici3ials 
AIN] Sil alalal a é 
ae C1 O1s'-O 
o 1o i? ° 
ae 


Disc File Allocation 
Disc File Expansion 
oO 
| 


Q 

GO| m 

2| 5 
i 
b> 


ii 
oO 
” 


Disc File 
Expansion 
iu] 

x 
v 


Key: biank =. Ignored 

R = Required 
Optional 
| = Wiegal 


.@) 
W 


ek 
. 


Not used for unlabeled tape 
FIL=TP 
FIL=PIO 


Notes: 


Required if not temporary 

Required if used at allocation.and not used with LABDEF on the OPEN 
Required if specific drive desired 

Required if not cataloged. 


Required if non-shared packs desired 


oS aS eS Se PS ON 


Required for disc volume mounting 

10. Input tapes only 

11. Required on first //DEF for logical TCOM 

12. Required if not sequential 

13. Applies to tape when not specified in the OPEN request for the file 


14. —_ Use disc-write-check for this step; override VER=NO at allocation for this step only 


15. Results are unpredictable. 
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The //ROUTE statement allows a file to be spooled for output or to provide information for 
the unit record device such as UCS and FORMS. 


IDENTIFIER 
IDENT =file-identifier (required) 
ID 


This operand establishes the logical relationship between the program’s internal file 
definition and the external specifications of the //ROUTE statement. 


The operand is a 1- to 8-character alphanumeric (including $ and dash) field. 


ieee -| NULL (optional) 
This operand supplies label information. The FILENAME operand must be identical to the 
entry in the central catalog. If the file is being allocated, the FILENAME operand will 
become the name in the catalog. FIL=NULL may be used to specify an optional file. An 
input request for an optional file results in end of file; an output request is ignored. If 
FILENAME is not specified, Control Language Services creates a default filename which is a 
3-byte day of year, 6-byte time of day, and a 1- to 8-byte identifier. 


PRINTER 
PRT 
READERPUNCH 
={ READPUNCH (optional) 
RDRPUN 
CRDPCH 
device address 


|BEVICE 
DEV 


This operand specifies the generic name or device address to be used for the output file for 
the spool function. Valid generic names are PRINTER, PRT, READERPUNCH, 
READPUNCH, CRDPCH. The default is DEV=PRINTER. If spooling was not selected at 
SYSGEN time, this is the device that will be assigned at Step Initiation. 


_{ volume-identifier 


ected 
(volume-id,volume-id,. . .) 


VOL (optional) 


This operand specifies the volume serial number(s) on which the data set is located or to be 
allocated. The operand is a 1- to 6-character alphanumeric field. 
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ALLOCATION AND EXPANSION KEYWORDS 


The following paragraphs describe the parameters necessary for the spool file allocation 
and/or expansion. 


YES 
CONTIGUOUS |_} NO 
CON ~ ( Sx fa) (optional) 
MX] ‘(MP 


This operand specifies whether allocation or expansion request is for contiguous space; and 
if specified, whether the space may occupy more than one pack. Extent and pack are coded 
as SX (single extent), MX (multiple extent), SP (single pack), and MP (multiple pack). Any 
combination of extent and pack is allowed. CON=YES means (SX, SP); and CON=NO 
means (MX, MP). 


SPOOL YES : 
a -{ No- (optional) 


<5 
This keyword specifies whether output“to be spooled or not. SPL=YES specifies spooling. 
SPL=NO specifies that the output goes directly to a peripheral device. Unless the default has 
been changed at SYSGEN time, the default is SPL=YES. 


prt (optional) 


This operand specifies the number of logical records per block. The value of each operand is 
in the range of 1 to 255. The default value is 1. 


SIZE |= 
=n 


SIZ (optional) 


This operand specifies the number of bytes per logical record. Record size is a 1- to 4-digit 
numeric value with a range of 1 to 9999. The default value is 134. 


NOTE 


The user is encouraged to use even-byte record size to allow output writer to 
use multiple block reads. 
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ree aaa ine) | | | ; : : . | . | i 


This keyword specifies the number of logical records for which space is to be allocated and 
optionally the number of logical records to be stored in the catalog for dynamic expansion. 


The n and e operands are 1- to 6-digit numeric values. Unless specified otherwise at 
SYSGEN time, the default value is NUM=(1000,500). 


SPOOLING INFORMATION KEYWORDS 


The following paragraphs describe additional //ROUTE statement keywords that are used to 
pass information to the spooling function or provide UCS or FORMS information to the 
unit record device. 


‘name | . 
UCS= } (name, FOLD,VER) - (optional) 
(name,NOFOLD,NOVER) 


This keyword specifies the 2- to 4-character name of the Universal Character Set residing on 
$NUCLIB which is to be loaded prior to printing. The FOLD and VER options are available. 
Default values are a SYSGEN name, NOFOLD, and NOVER. If SPL=NO, the Step Initiator 
issues UCS mount requests and loads the UCS buffer; whereas if SPL=YES, the information 
is passed to the spooler. See the MRX/OS Utilities Reference manual for a detailed 
description of UCS. 


| ip | (Mo NOT (optional) 


This keyword specifies whether the file is to be (HOLD=YES) or is not to be (HOLD=NO) 
placed on the spooler hold queue at step termination. Default is HOLD=NO. 


(SAVE |. {No YES (optional) 


SAV 


This keyword specifies whether. the file is to be (SAVE=YES) or is not to be (SAVE=NO) 
purged after it has been printed or punched. Default is SAVE=NO and the file is purged 
after output eee 


(optional) 


This operand specifies a 1- or 2-digit decimal number which specifies the number of copies 
to be printed or punched. Default value is 1. 
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| Se =form-type (optional) 


FOR 


This operand specifies a 1- to 6-character alphanumeric form type which the operator will 
be requested to mount prior to printing or punching. Default is standard forms. 


if SPL=NO, the Step Initiator issues forms mount requests; whereas if SPL=YES, the 
information is passed to the spooler. 


SAMPLE //ROUTE STATEMENTS 


The following example assigns the READPUNCH to the job identified by ID=JOB18. The 
default filename is created. Since SPOOL was not specified the default is YES. Before 
punching the operator will be requested to use form 18. 


Sample 1: //RTE ID=JOB18,DEV=READPUNCH,FORMS=18 
In the following example the MASTERFILE will be allocated in noncontiguous space on 
volume BLY635 with blocking factor of 10. The number of logical records is 1500 with 500 


reserved for dynamic expansion. The file is to be saved after printing. 


Sample 2: //RTE  1D=JOB20,FIL=MASTERFILE,VOL=BLY635, 


// BLK=10,NUM=(1500,500) SAVE=YES 
SET STATEMENT 
SET es bie Gee 
and/or 
SWITCH : : 
| SWI =switch-setting 


The operating system permanently allocates space in the partition for a job control table. 
This table contains, among other things, a job date and a program option switch byte. The 
problem program has access to these fields which enable the programmer to obtain the date 
for processing and/or output, and to test the setting of the option switch. 


At the beginning of the job, the job date field is set equal to the system date, and the bits of 
the program option switch byte are set to zero. The //SET statement enables the user to 
modify the contents of these two fields in the Job Control Table. Either the job date or the 
switches, or both, may be altered by one //SET statement. The effect of a //SET statement 
remains until //EOJ is encountered or until another //SET statement with the same keyword 
occurs within the job. Any number of //SET statements may be included within a job. 
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DATE=job-date (optional) 
This keyword-operand specifies the date to be used for date-dependencies in the job. The 
job date that is set need not be the current date. The operand field is a 6-digit numeric value 
in the form mmddyy: mm is the month with a value in the range of 01 to 12, dd is the day 
of the month with a value in the range of 01 to 31, yy is the decade and year with a value in 


the range of 00 to 99. 


Example: DATE=012472 
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NOTE 


A Julian date will be calculated by the system and will be returned when it is 
requested using a JDATE macro in a program. (Refer to Appendix D and the 
Control Program and Data Management Services, Basic Reference manual for 
further discussion of the JDATE macro.) 


SWITCH=switch-setting (optional) 


This allows the programmer to control the eight switch bits of the program option switch 
(POST) byte in the Job Control Table (JCT). The switches are set and changed by either the 
//SET control language statement or the POST macro and may be used for any purpose in 
the program. The switches are tested within the program via the RPOST macro. (See 
Appendix D of this manual and the Control Program and Data Management Services, 
Extended Reference manual for details on these macros.) 


The operand is an 8-character field. Each character is specified as either a zero, a one, or an 
X. The value 1 sets the corresponding switch bit on in the POST byte of the JCT. The value 
O turns the switch bit off. The X leaves the switch bit as it was previously set within the job. 


Example: SWI=0100X1XX 


Sample //SET Statements 
The following are examples of //SET statements. 
Example: //SET DATE=032172 


In this example, the existing JDATE entry of the JCT will be changed to 032172. The 
SWITCH keyword-operand has been omitted and the POST byte of the JCT will not be 
affected by this //SET statement. 


Example: //SET DATE=032173, 
// SWI=X0100XX1 


In this example the JDATE entry of the JCT will be changed to 032173. The POST byte of 
the JCT is also changed. The first, sixth, and seventh bits retain the values set in them before 
this //SET statement is processed. The second, fourth, and fifth bits are turned off by being 
set to zeros. The third and eighth bits are turned on, by being set to ones. 
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TELL STATEMENT 


//TELL 
/ITEL OP=message 


ee ee 


This statement designates information to be typed on the operator’s console during the 
initiation of a job step. The PAUSE=YES keyword-operand will cause Control Language 
Services to wait for an operator response before continuing initiation. 


Continuation of this statement is not allowed. However, multiple //TEL statements may be 
used. The commend field is not allowed. 


OP=message (required) 


The operand of this keyword is the message to be printed on the operator’s console. The 
entire EBCDIC code set is available for use in the operand. The contents of the operand will 
be typed on the operator’s console as specified between the equal sign of the keyword and 
either the sequence field of the statement or the PAUSE=YES or PAU=YES 
keyword-operand. 


Example: OP=EMPTY READER PUNCH HOPPER 


ear = | YES (optional) 


PAU NO 


PAUSE=YES indicates that the Control Language Services will wait for an operator 
response. The operator replies GO to continue processing or STOP to abort the job. When 
PAUSE=NO is specified or when this keyword is not coded, initiation will not be 
interrupted for operator response. The default is NO. 


In order to write a multi-line message on the operator’s console and then interrupt the 


initiation of the step for a response, PAUSE=YES is specified only on the last //TELL 
statement. 


Special consideration must be given to the information that may be included in a //TELL 
statement. An equal sign within a message can cause Contro! Language Service errors. For 
example, 

//TELL OP=PGM=XYZ,FIL=ABC 


will cause an error. However, this may be circumvented by using the following format. 


//TELL OP=* PGM=XYZ,FIL=ABC 
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Sample //TELL Statements 
The following are examples of //TELL statements. 


Example: //TEL OP=PLEASE CALL BOB MILLER,EXT394 
//TEL OP=IF THIS JOB ABORTS 


In this example, a multi-line message is typed on the operator’s console and initiation of the 
step will not be interrupted. 


Example: //TEL OP=EMPTY CARD READER HOPPER,PAU=YES 


In this example a single line message is typed on the operator’s console. After the message is 
typed, initiation of the step will be suspended until the operator replies either GO to 
continue initiation or STOP to abort the job. 


Example: //TEL OP=REMOVE PRINTED OUTPUT FROM PRINTER 
//TEL OP=EMPTY READER AND PUNCH OUTPUT 
//TEL PAU=YES,OP=CALL EXT 472 ON JOB COMPLETION 


In this example, the three line message is typed on the operator’s console before initiation 
of the step is interrupted. Initiation will resume when the operator replies to the PAU=YES 
keyword-operand with GO; termination will occur when the operator responds with STOP. 
NOTE 
A special restriction applies to //TELL and //PAR statements: No more than 


17 characters may appear in consecutive columns without a delimiter (blank, 
comma, equal sign). 


INTERSTEP LEVEL STATEMENTS 


Between steps, the //IF statement may be used to affect the conditional execution of the 
following job steps. 


IF STATEMENT 


/AF oe 
COD 


GO= 


=value 


step-name 
co) | 
The //IF statement provides for testing the condition code set by the program in the Job IF 
Code (JTIFC) byte contained in the job control table (JCT). As a result of the test in the 
//[\F statement, the job will either continue with the next control statement or will skip (ina 
forward direction only) to a named //EXECUTE or to end of job. Only one code condition 
is tested in an //IF statement. However, any number of these statements may be used 
between steps. 
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COD =value (required) 
This 1-byte operand field specifies a value to be compared to the JTIFC byte of the JCT. 
The operand may contain any EBCDIC character. If the value given as the operand of the 
CODE keyword is equal to the value in the JTIFC byte, Control Language Services will 
initiate the step named as the operand of the GO keyword. 


The value in the JTIFC byte is specified in the program, via the SETIF macro. (Refer to 
Appendix D of this manual and Control Program and Data Management Services, Extended 
Reference manual for a detailed description of this macro.) 


GO= step-name 


EOJ (required) 


The operand of the GO keyword specifies either the name of a following step or EOJ. If the 
condition code in the JCT (JTIFC byte) is equal to the operand of the CODE keyword, a 
forward jump will be made to the named step if GO=step-name, or to the end of job if 
GO=EQOJ. The step-name specified must be identical to a NAME operand of a following 
//EXECUTE statement within the job. An unnamed step may not be referenced. If the GO 
keyword names a step which is not a forward reference, all remaining steps are skipped. 


The GO operand is a 1- to 8-character alphanumeric field. This keyword-operand is required. 


Sample //IF Statement 
The following is an example of an //IF statement. 
//\F CODE=M,GO=EOJ 
In this example, if the value in the JTIFC byte of the JCT, set by the SETIF macro in the 


program, is equal to M, the remaining steps in the job will be skipped. If the value in JTIFC 
is not equal to M, the next control language statement in the job will be processed. 
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PROCEDURE-ORIENTED STATEMENTS 


To eliminate the duplication of writing control language statements for each step, these 
statements may be cataloged as a source library member. This member is known as a 
cataloged procedure. (Cataloged procedures are described in Section 4 of this document.) 
The statements that identify, communicate with, and cause the merging of a cataloged 
procedure are known as procedure-oriented statements. There are two of these: 


/ICALL (Requests the merging of a cataloged procedure from the procedure 
source library into the control language statements of a job step, and 
passes values to the procedure for variables identified in the //DECLARE 
statement.) 


//DECLARE (Identifies variables used within the control language statements of a 
cataloged procedure.) 


Cataloged procedures consist of a //DECLARE as the first statement followed by step or 
interstep control language statements (//EXECUTE, //PAR, //DEFINE, //SET, //TELL and 
//\F). No other control language statements except comments are allowed. 


DECLARE STATEMENT 


//DECLARE 
//DEC [Required run-time variables] 
[Run-time default variables] 


The //DECLARE statement is required as the first statement of every cataloged procedure 
having defaults. [t may identify variables to be supplied to the procedure. 


The Control Language statements within a cataloged procedure may include both constants 
and run-time variables. Constants are keyword-operands that remain unchanged for all 
executions of the procedure. Run-time variables are keyword-operands that may change 
with succeeding executions of the procedure. Run-time variables must be declared as 
keywords in the //DECLARE statement. 


An ampersand (&) preceding an operand within a cataloged procedure identifies that 
operand as a run-time variable. 


The keywords listed on the //DECLARE statement identify two classes of run-time 
variables. Keywords which are listed with no operands on the //DECLARE statement; these 
keywords must be specified with operands in the //CALL statement each time the cataloged 
procedure is called into execution. Keywords listed with operands on the //DECLARE 
statement supply default values for operands not specified at the time the procedure is 
called. These default values are set at the time the procedure is cataloged. 
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Sample //DECLARE Statement 


/IDEC A,B,C,D=DISC 
//DEF ID=&A,FIL=&B, 
// VOL=&C,DEV=&D 


In the above example of a cataloged procedure: Keywords A, B, and C are listed on the 
//DECLARE statement with no operands. These operands, therefore, must be specified in 
the //CALL statement each time the procedure is called into execution. Keyword D is listed 
with the default operand DISC. If this operand is not overridden by a specification in the 
//ICALL statement at the time this procedure is called into execution, &D in the //DEF 
statement will be replaced with the operand DISC. 


CALL STATEMENT 
//CALL 
/ICAL PROC 
| PRO =procedure-name 
(| meas =library-name | 
LIB 


[Required run-time variables] 
[Default values to be overridden] 


This statement names the cataloged procedure to be merged with the control language 
statements of a job. Run-time variables for that procedure are also given on the //CALL 
statement. 


All required keywords (specified with the keyword only and no operand on the procedure 
//DECLARE statement) must be given on the //CALL statement. In addition, any 
//DECLARE default values to be overridden (specified with the keyword and operand on 
the //DECLARE statement) may also be given on the //CALL statement. 


| sig =procedure-name (required) 


This keyword-operand is required. It specifies the name of the cataloged procedure to be 
merged with the control language statements of a job. The operand is a 1- to 8-character 
alphanumeric field and must be identical to the member name of the procedure on the 
source library. 


Example: PROC=RECONS3 
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ones =library-name 


LIB 


This keyword is required whenever the procedure resides on a private library rather than on 
the system procedure library ($SYSPROCLIB). It specifies the library on which the 
cataloged procedure resides. The operand is a 1- to 17-character alphanumeric field. First 
character may be A-Z, 0-9, or $. No embedded blanks or special characters except dashes are 
allowed. 


The PROC keyword and the LIBRARY keyword (if specified) must precede the required 


run-time variables and default values specified on the //CALL statement. They must also be 
in the order: PROC, LIB. 


If the LIB keyword is not coded, the first run-time variable may not begin with LIB. 


Required Run-Time Variables 


The required run-time variables supply the values for the run-time variables listed on the 
//DECLARE statement with keywords and no operands. If //CALL names a variable that is 
non-existent, it is ignored. 


Default Values to be Overridden 


These entries provide values which override default values specified in the //DECLARE 
statement with keyword operand. 


Sample //CALL Statements 
The following are examples of //CALL statements. 
Sample 1: //CALL PROC=PAWN3B,LIB=PROCLIB1 


In this example, PAWN3B is the cataloged procedure on library PROCLIB1 which will be 
merged with the Control Language statements of the step. The //DECLARE statement 
contains no required variables, and there are either no defaults given or all defaults are 
accepted for this execution of the procedure. 


Sample 1: /ICALL PROC=SEND241,SOURCE=FIL 42, 
Lh SPOT=467,LINES=20 


In this example, the cataloged procedure is called SEND241 and resides on $SYSPROCLIB, 


the system library for cataloged procedures. Defaults are being overridden, or entries are 
required for LINES, SOURCE, and SPOT (listed on the //DEC statement with no operands). 
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Sample 3: At run time those operands in the procedure identified by an 
ampersand (&), will be replaced by run-time variables. These 
run-time variables are listed on the //CALL statement, or as 
default values on the //DEC statement. Operands provided by 
//DECLARE and/or //CALL statements, when substituted into 
the Control Language statement of the cataloged procedure must 
not cause format errors in statement of test procedures. The 
format of the //CALL and //DECLARE statements is the same as 
that described under FORMAT previously in this section. 


//JOB NAME=PAY ROLL 

/IEX PGM=PR146G-A,TIME=75 

/ICALL PROC=PAYPROC1,LIB=PAYPROK,A=PROC1234, 
// B=FIL147,C=AQ1439,D=(P,O) 


The procedure PAYPROC1 contains the following code: 


PAYPROC1 

/I(DEC  A,B,C,D,E=DISC 

/(DEF ID=&A,FIL=&B, 

// VOL=&C,STA=&D,DEV=&E, 
// NUM#=1600,S1Z=128,BLK=1 


At run time the operands are substituted into the //DEFINE statement, and it reads as 
follows: 


//DEF {D=PROC1234,FIL=FIL147, 
// VOL=A01439,STA=(P,0),DEV=DISC, 
// NUM=1600,S1Z=128,BLK=1 


DATA LEVEL STATEMENTS 


All data is entered into the system through the data level statement within the job. The data 
level statements are //DATA and /* (data delimiter). 


The user may enter data to the system in one of two ways: either by spooling the data to a 
sequential disc file to be read by one or more of the job steps, or by temporarily dedicating 
the system reader to his job through the use of SYSCRD. In either case, he must precede the 
//IDATA statement with a //DEF statement to identify the file in each step that uses it. 
Spooling is generally preferred on two counts: it does not tie up the system reader which 
temporarily prevents the entry of other jobs, and it provides input data files which may be 
read by more than one job step. (However, in an environment using the reader-punch as 
primary input device, the SYSCRD file preloaded with blank cards is the user’s only means 
of punching cards.) 
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DATA STATEMENT 
/IDATA pee _ eee | 

FIL data-file-name 

[cis s- [re 1] 
BLOCK . 

[ | BLK \- =blocking factor for spooled data | 
NUMBER 

ae =number of records | 

Picourisvers | | al 


CON 


The //DATA statement is used to identify the data file which follows. Within a job, data 
files always precede the //EOJ statement. If the data is spooled more than one data file may 
be included in a job. //DATA statement is required for each data file in the job. A spooled 
data file is reusable; it may be read by more than one step of a job. 


When spooling data, the data file(s) may appear any place in a job, following a complete 
statement, after the //JOB card and before the //EOJ card. The FILENAME keyword names 
the file to be built. 


Only one SYSCRD //DATA statement specifying FIL=SYSCRD can be used in a job. This 
//DATA statement and its associated data file must immediately precede the //EOJ 
statement. Multiple data files are entered, in this case, by coding data delimiters following 
each set of data cards that the job processes as a file (Figure 2-2). Control of the card reader 
will be given to the job using the data file for the duration of the job. When the data 
delimiter is encountered, the card reader file is closed by the program. In order to read each 
additional set of data (following a data delimiter) the program must again issue an open 
request for the card reader, using the IDENT specified in the //DEFINE statement for that 
file, and must again close the file when the data delimiter is read. 


The data delimiter, /* (slash, asterisk, blank), must be used to end each data file including 
the last data file within the job; except when CLS=YES is specified, /*CLS is the data 
delimiter. The //EOJ card immediately follows the last data delimiter in the job. 


When the data carcls are to be read directly from the system card reader by the program, the 
data file must immediately precede the //EOJ card; FILENAME=SYSCRD must also be 
given in the //DATA statement. In this situation, the card reader is controlled by the 
program, until the job has processed the data and has terminated. Only then is control of 
the card reader returned to the system so that Control Language Services can read and 
initiate additional jobs. 
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//3OB 


HEX 
//IDEF DEV=SYSCRD,ID=T 
/IDATA FIL=SYSCRD 


Data 
Sample Job 


Shows four sets of data to be read by the 
program directly from the card reader. 


Only one //DATA statement is used, 
specifying FIL=SYSCRD, /* indicates 


Data 
the end of a data file. 


At the end of job, control of the card 
reader will be returned to the system. 


Data 


Data 


Figure 2-2. Sample Job with Card Reader Control by the Program 


FILENAME |__| SYSCRD : 
= (required) 


FIL data-file-name 


This keyword specifies the name of the file to be built from the cards which follow. If 
data-file-name is used, this operand must be the same as that coded for the FILENAME 
operand of a //DEFINE statement within the job. If SYSCRD is used, the preceding © 
//DEFINE statement uses DEV=SYSCRD rather than file-name. 


When FILENAME=SYSCRD is used, control of the system card reader is passed to the job 
until all following data has been processed and the job has completed execution. The 
data-file-name operand is a 1- to 17-character alphanumeric field. First character may be 
A-Z, 0-9, or $. No embedded blanks or special characters except dashes are allowed. 
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CLS= 


ive Mas (optional) 


The system allows control language statements to be placed in data files. Whenever this is 
done, as when creating procedure files, the CLS keyword is required. The CLS 
keyword-operand has no meaning when FIL=SYSCRD is used. 


CLS=YES indicates that the control statement identifier (//) may be found in columns 1 
and 2 of the records. The /*CLS data delimiter is the only statement that will stop 
placement of cards in the data file. All cards between the //DATA and /*CLS statements are 
spooled. 


CLS=NO specifies that there are no control statements in the file. The first statement with 
the // or /* identifier beginning in column 1 is assumed to be a control language statement 
and will terminate the file. The default is CLS=NO. 


| a =blocking-factor for spooled data (optional) 


This operand specifies the blocking factor to be used in data spooling. It indicates the 
number of logical records to be placed in each physical block. The BLK keyword has no 
meaning when FIL=SYSCRD is used. The default is BLOCK=1. 


NUMBER (optional) 
NUM 

This keyword is used to specify the number of logical records for which space is. to be 
allocated for the spooled data file. If this operand is not given, the default value NUM=1000 
is assumed. This parameter has no meaning if FIL=SYSCRD. 


The NUMBER operand is a 1- to 5-digit numeric value. The maximum value of operand n is 
32,767. 


CONTIGUOUS on Bein 
(optional) 


CON 


This keyword specifies whether the space request is for a segmented or contiguous block of 
disc space for the spooled data file. CON=YES specifies that contiguous disc space is 
required. CON=NO indicates that segmented disc space is acceptable for this request. The 
default is NO. This parameter has no meaning if FIL=SYSCRD. 
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Sample //DATA Statements 
Sample 1: 
Example of data entry under program control of system card reader: 
//JOB NAME=SAMPLE 
//EX PGM=LIBUTIL 
//DEF  ID=SEQIN,DEV=SYSCRD 
(other //DEF and //PAR statements for program) 
H//DATA FIL=SYSCRD 


(input data) 


faa 
/IEOS 


Sample 2: 

Example of spooled data file, read by both steps of a two step job: 
//JOB NAME=GEMINI 
//EX PGM=FIRST 
//DEF ID=INPUT,FiIL=PROC1630 


(other //DEF and //PAR statements as required) 


[TEX PGM=SECOND 
//DEF  ID=PRIME,FIL=PROC1630 


(other //DEF and //PAR statements as required) 
/IDATA FIL=PROC1630,CLS=YES,NUM=35,CON=YES 
(input data) 


/*CLS 
/IEOJ 
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DATA DELIMITER STATEMENT 


ye 


/* (slash, asterisk, blank) is the data delimiter. This statement is required at the end of each 
data file. 


There is no command for this statement and it has no keywords. The comment field may be 
used beginning in card column 4. Any character other than blank in card column 3 will 
cause the card to be treated as data and not as a data delimiter with the exception of /*CLS. 


if CLS=YES in the //DATA statement, all cards between the //DATA and /*CLS cards are 
considered to be data. 


JOB STREAM CONVENTIONS 


A sample job stream is illustrated in Figure 2-3. Another sample may be found in Appendix 
G. Control language statements are listed as they might appear in a job. Within a job step the 
//EXECUTE statement must appear first. Other statements in the step may be in any order, 
but should be grouped by command. All statements in a job step are processed by Control 
Language Services prior to the program being loaded. Note the job stream conventions used. 


Appendix G contains two sample jobs that include a variety of Control Language statements 
and appropriate keyword-operands to run these particular jobs. 


//JOB Required as first statement 
( EXECUTE Each step begins with an //EXECUTE 
HISET 
TELL 
! STEP * (comment) *(comment) may precede the first 

//PAR //EXECUTE 
//DEFINE 
//ROUTE 

INTER-STEP JIE 
//EXECUTE 

STEP 


JOB 


//EXECUTE 
STEP 


//IDATA 
USER DATA 


/* Required as data delimiter 


//EOJ Required as last statement 


Figure 2-3. Sample Job Stream 
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3. FILES AND DEVICES 


GENERAL DESCRIPTION 


The assignment of all devices and the allocation of disc space may be performed via the 
Control Language Services program. The step-leve!l control language statement which 
requests a device, volume, or file is the //DEFINE statement. 


Space allocation and disc file use occur through the control language statement interface to 
Data Management Services. Internal allocation and use of disc files, completely within the 
program, and without the use of a //DEFINE statement, can only occur for cataloged files 
residing on shared disc. This technique is intended for use by system programs. It is, 
however, available for use in application programs. 


SPECIAL FILES 


Control Language Services allocates space for the system files used by job steps. These files 
are the system input file, called SYSIN, and the system output file, called SYSOUT. Space is 
allocated and these files are built for every job by Control Language Services. These files do 
not require a //DEFINE statement. Files requested as a result of LIB=keyword and/or 
DEBUG=YES parameters on the //EXECUTE statement are also handled by Control 
Language Services. A //DEFINE statement, however, is required for the CHECKOUT file 
created as a result of DEBUG=YES keyword-operand on a //EX statement. A //DEFINE 
statement is also required whenever an uncataloged private load library is used. 


SYSIN (SYSTEM INPUT FILE) 


Every job has a uniquely named system input file, allocated as a temporary cataloged file by 
the Input Reader, and built by the Input Reader and Job Initiator modules of Control 
Language Services. SYSIN contains all of the contro! language statements for a job including 
those which are merged from cataloged procedures. It is from this file that the job and its 
steps will be initiated at run time. SYSIN is built and used exclusively by the system. 


The //PAR statements which are part of the job are placed on the SYSIN file. They are 
accessed during program processing by the ACCEPT macro. (See Appendix D of this 
document, and the Control Program and Data Management Services, Extended Reference 
manual for further details on the ACCEPT macro.) SYSIN is automatically purged by Job 
Terminator. 


Data cards in the job are placed on a separate data file, specified on the //DATA statement, 


or are read by the program directly from the system card reader for processing. No 
relationship should be formed between this data file and the SYSIN file. 
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In the event of a system crash or other condition preventing normal job termination, 
replying N to the retain job queue question causes IPLMON to purge all outstanding SYSIN, 
SYSOUT, and spooled data files. 


SYSOUT (SYSTEM OUTPUT FILE) 


Each job has a uniquely named system output file, which is created during job processing. 
The SYSOUT file is allocated as a temporary cataloged file by the Input Reader module of 
Control Language Services, SYSOUT contains a copy of the control language statements 
read and processed by Job Initiator and Step Initiator. Error and system messages, and job 
accounting information are also written to SYSOUT. The problem program may write 
messages on the SYSOUT file by using the DISPLAY macro. (See Appendix D of this 
document, and the Control Program and Data Management Services, Extended Reference 
manual for a description of the DISPLAY macro.) 


At job termination, the SYSOUT file will be printed and automatically purged by the Job 
Terminator. If no printer is available the operator will be informed and the file will be 
printed when a subsequent job termination occurs and a printer is available. 


In the event of a system crash or other condition preventing normal job termination, 
replying N to the retain job queue question causes IPLMON to purge all outstanding SYSIN, 
SYSOUT, and spooled data files. 


$LODLIB (PRIVATE LOAD LIBRARY) 


Control Language Services will request program loading from a private load library when 
specified by the L!1B=keyword on the //EXECUTE statement. If the private load library is 
cataloged, no //DEFINE statement is required. However, if the library is not listed on the 
central catalog, a //DEFINE statement specifying ID=$LODLIB must be provided. The Step 
Initiator routine of Control Language Services opens the library for input, and Step 
Terminator automatically closes it at the end of the step. 


CHECKOUT (CHECKOUT DEBUGGING DIRECTIVES) 


When DEBUG=YES is specified on a //EXECUTE statement, the Step Initiator routine of 
Control Language Services will automatically open the associated debug directive data file 
entered with the job. A //DEFINE statement specifying 1D=CHECKOUT and FILENAME 
with the same operand as given on the //DATA statement of the debug directive file must be 
included with the control language statements of the step. This file is automatically closed 
by the Step Terminator of Control Language Services at the end of the step. 


DEVICE ASSIGNMENT AND FILE DEFINITION 


The //DEFINE statement includes all of the keywords necessary to describe the attributes 
of a file and of the device on which it resides. The level of involvement of the Control 
Language Services depends upon the type of file used. 


The following sections discuss the categories of devices available on the MRX/40 and 50 
Systems. Devices and files for logical and block I/O are described by device type. Files to be 
manipulated by physical I/O are discussed collectively under that heading in this section. 


UNIT RECORD DEVICES 


In order to make a file on a unit record device available for use by a program executing ina 
partition, Control Language Services must assign the device to a job step. A unit record 
device must be assigned for the exclusive use of a single step in a partition. The unit record 
devices available for use with the MRX/40 and 50 Systems are card readers, card 
reader-punches, and line printers. 


The assignment of a unit record device to a job step requires that a //DEFINE statement for 
the file be included in the control language statements of the step. The identifier (name by 
which the file is known in the program) and the device must be designated on the //DEFINE 
statement for the file. Any other information given on the statement will be ignored since it 
would not apply to unit record devices. Specifically, filename, which applies to all other 
categories of files, has no meaning for unit record equipment and is ignored, except in the 
cases of FIL=P10, FIL=DUMMY, and FIL=NULL. 


NOTE 


In a system using reader-punch for the system reader, a //DEFINE statement 
specifying DEVICE=CRDPCH is illegal. Punching may be done only by 
specifying FIL=SYSCRD in the //DATA statement and following it with the 
estimated number of blank cards required for punching and using 
DEV=SYSCRD on the associated //DEFINE statement. 


MAGNETIC TAPE DEVICES 

Volume control and device assignment for files that reside on magnetic tape are performed 
by Control Language Services. Magnetic tape units must be assigned for the exclusive use of 
a single job step in a partition. 


Tapes used for input may have standard or non-standard labels, or they may be unlabeled. 
Tapes used for output must either have standard labels or be unlabeled. 


Labels on input tapes may be bypassed or ignored. Label bypass results in the tape being 


positioned to the first data block past any standard label. The program must correctly 
position the tape past any non-standard labels. When labels are to be ignored, no tape 
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positioning or label checking takes place. The program must position the tape to the first 
data block. The option to ignore or bypass labels is selected by the LABEL keyword of the 
//DEFINE statement. 


For a detailed description of the format and content of standard and non-standard labels 
refer to Control Program and Data Management Services, Extended Reference manual. 


STANDARD LABELED TAPES 


A standard labeled tape contains a volume label to identify the tape reel and a file label to 
identify the data file. The //DEFINE statement keywords that correspond to these labels are 
VOLUME and FILENAME respectively. 


Input 


When a standard labeled tape is opened for input, the volume identifier given’ in the 
//DEFINE statement is compared to the volume serial number contained in the volume label 
of the first or only reel of the file. The file is opened only if these are equal. If not equal, a 
message is issued instructing the operator to mount another tape and retry, or abort the job. 


Output 


When a standard labeled tape is opened for output, the volume identifier specified in the 
//DEFINE statement identifies the tape reel in a mount message to the operator. This 
volume identifier is also compared to the volume label (volume serial number) normally 
written previously by a utility routine. If these items are equal the file is opened and the file 
label is written, using the operand of the FILENAME keyword in the //DEFINE statement 
as the file name for this label. If these items are not equal or there is no volume label on the 
tape, a message indicating this is sent to the operator. The operator is instructed to mount 
another tape and retry, or supply the necessary information for Data Management to create 
the standard label. The volume number of the first volume becomes the serial of all the 
volumes of that file. 


NON-STANDARD LABELED TAPES 

Non-standard labeled tapes do not contain volume labels. The volume identifier given in the 
//DEFINE statement for these tapes is used only for mount messages. File labels specified in 
the //DEFINE statement are not compared. 

Input 

When a non-standard labeled tape is opened for input a check is made to determine that the 
tape mounted does not contain a standard label. If a standard labeled tape has been 


mounted, a message is issued instructing the operator to mount the correct volume and 
retry, or to abort the job. 
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Output 


Non-standard labels may not be used for output. An attempt to open a non-standard labeled 
tape for output results in an error message and abnormal termination of the job. 


UNLABELED TAPES 


The volume identifier given in the //DEFINE statement for unlabeled tapes is used only for 
mount messages. File labels specified in the //DEFINE statement are not compared. 


Input 


When an unlabeled tape is opened for input a check is made to ensure that the tape 
mounted does not contain a standard label. If a standard labeled tape was mounted, a 
message is issued instructing the operator to mount the proper input tape and retry, or abort 
the job. 


Output 


When an unlabeled tape is opened for output a check is made to ensure that the reel 
mounted is truly unlabeled. If a standard labeled tape was mounted, the label will be 
overwritten if it has expired. If the label has not expired, a message is issued instructing the 
operator to override the expiration date, mount another tape and retry, or abort the job. 


TELECOMMUNICATION DEVICES 


The use of telecommunications within a job step requires the assignment of each line used 
by the program. The keyword-operands of the //DEFINE statement have the following 
significance. The IDENTIFIER keyword specifies the logical terminal name. This is the 
name defined in the TRMDEV macro. (See Telecommunications Reference manual for the 
description of this macro and for a complete discussion of telecommunications.) The 
DEVICE keyword specifies the terminal line to be enabled. The FILENAME keyword is 
always given as TP unless physical I/O is to be used; then FIL=PIO is specified. The number 
and size of buffers for each line is specified with NUMBER and SIZE keywords respectively. 


DIRECT ACCESS STORAGE DEVICES (DISC) 


At Initial Program Load (IPL) time, disc drives may be specified as either shared or unshared 
for that installation. This function is performed by the SHARE and UNSHARE directives as 
described in the MRX/OS Operating Procedures manual. The IPL commands amount to an 
override of the SYSGEN selection. 


Once the status of a disc drive has been specified as shared or unshared, it will remain that 
way until overridden by new directives at a subsequent IPL time. 


SHARED DRIVE 


A shared disc drive is one that is available for simultaneous use by both partitions. The share 
command may be issued only at IPL time or when the system is cycled down. 


UNSHARED DRIVE 


An unshared disc drive is one that is available exclusively to one job step at any given time. 
Packs on these drives may be mounted at step initiation and CLOVEd (closed for the 
purpose of mounting the next volume of the file) during a step. 


FILES 


Disc files may be shared, that is, the file may be opened simultaneously by job steps in 
either partition. In order for a file to be shared, it must reside on a shared disc drive and be 
defined in the status keyword of the //DEFINE statement as either a permanent input or 
permanent update file. (Refer to Section 2 of this document for shared file restrictions.) 


DISC FILE ORGANIZATION 


The ORGANIZATION keyword of the //DEFINE statement specifies the organization of 
the file as sequential, relative or indexed. 


A sequential file which occupies more than one volume (multi-volume file), may use one or 
more disc drive units. If only one disc is used, a CLOVE macro will allow the mounting of 
the next volume of the file. If more than one disc drive is used, one drive must be requested 
for each volume of the file. This is accomplished by specifying multiple operands in the 
VOLUME and DEVICE keywords of the //DEFINE statement. In this case, volumes may be 
mounted on any combination of shared and unshared disc drives. Volume switching is 
performed by the system. 


Indexed and relative multi-volume files, unlike sequential files, must have all volumes of the 
file mounted for the duration of the step. These volumes must be mounted exclusively on 
either shared or unshared devices. A combination of shared and unshared devices is not 
allowed. 


DISC SPACE ALLOCATION 


The allocation of disc space is performed by the system for all types of files (scratch, 
temporary, work and permanent) using information supplied on the //DEFINE statement. 


Scratch and temporary files must always be centrally cataloged (CAT=NO is illegal), but 
permanent and work files may be cataloged or uncataloged. 
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Volume identifiers must always be specified for uncataloged files but are optional for 
cataloged files. If a volume identifier is supplied, the space will be allocated on the pack (s) 
specified. If a volume identifier is not specified (legal only for cataloged files) the space will 
be allocated on a shared volume. 


The identifier and filename must be given with every space allocation request. If a 
modification security code is to be required for use of the file in any subsequent step, it 
must be specified at allocation time. Also at allocation time, the number and size of records 
and the number of records per block must be given. This information is used to determine 
the amount of disc space which must be allocated. If relative or indexed file organization is 
to be used, it must be specified, and if the data is not to be in common stored data format, 
that too must be specified. 


DISC FILE EXPANSION 


The EXPAND keyword of the //DEFINE statement is used to specify the number of records 
by which an already allocated sequential file is to be expanded. The NUMBER keyword, 
which is used to specify the number of records for which space will be allocated in a new 
file, cannot be specified in the same //DEFINE statement that contains an EXPAND 
keyword-operand. 


The IDENTIFIER and FILENAME keywords must be specified in the //DEFINE statement 
for every file that is to be expanded. 


The BLOCK keyword which specifies the number of records per block, and the STATUS 
keyword which specifies type and usage must be the same as that specified at allocation. 


The programmer may request contiguous space for the expanded area. Expansion of a file 
automatically creates a separate segment for the expanded area (causing an EXTENT to be 
added to the FDT for the file). The CONTIGUOUS keyword-operand on the //DEFINE 
statement for expansion of a file references the expanded area only, and is not related to the 
allocation of the original file, whether contiguous or segmented. 


LOGICAL INPUT/OUTPUT 


The DEVICE keyword on the //DEFINE statement initiates device assignment. A specific 
unit may be chosen by coding the physical address as the operand of the DEVICE keyword, 
or a generic device name may be specified which enables Control Language Services to select 
an available unit. If a device has already been defined, a subsequent //DEFINE statement 
referring to the same device by hardware address will be assigned to that same device. 
However, a subsequent //DEFINE statement using the generic name will force Control 
Language Services to assign another device of the same type. 


The VOLUME keyword on the //DEFINE statement specifies the required disc pack and is a 
required keyword for an uncataloged file. The operand of this keyword will be used in the 
mount message requesting the pack. For cataloged files, Control Language Services will 
create the mount message using the volume identification specified in the central catalog. 
The VOLUME keyword is optional for these files. 
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The IDENTIFIER and FILENAME keywords are required for logical 1/O. IDENTIFIER 
specifies the logical file name (name by which the file is known to the program). 
FILENAME specifies the name of the file on the central or pack catalog. 


PHYSICAL INPUT/OUTPUT 


The disc device units to be used for physical I/O must be assigned for the exclusive use of a 
single job step in a partition. Devices assigned for physical |/O cannot be shared. 


One //DEFINE statement is required for each device to be assigned for physical !/O. This 
define statement must contain the IDENTIFIER, VOLUME, and DEVICE keywords. These 
keywords specify the logical file name, the disc pack, and the disc drive respectively. The 
FILENAME keyword must also be specified in the //DEFINE statement and must have as 
its operand PIO for physical input/output. There is no protection against the PIO user. For 
example, a user performing physical output to the printer can interfere with output 
proceeding to the printer from the other partition. 
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4. CATALOGED PROCEDURES 


GENERAL DESCRIPTION 


A cataloged procedure is one or more control language statements placed on a source library 
as a member. The LIBUTIL program performs the function of placing the cataloged 
procedure on the source library. The //CALL statement within a job performs the function 
of merging the cataloged procedure with the contro! language statements of the job. 


Appendix H gives rules governing variable replacement in procedures. 


WRITING A CATALOGED PROCEDURE 


The first statement of a cataloged procedure is the //DECLARE control language statement. 
The default values for run-time variables are specified by coding keyword and associated 
operand. 


The //CALL statement is used to request that the named cataloged procedure be merged 
with the control language statements of the job. All of the run-time variable symbols 
specified as keywords without operands on the //DECLARE statement of the procedure 
may be given as keywords with operands on the //CALL statement will include only the 
name of the cataloged procedure requested, as the operand of the PROC keyword and 
possibly the name of the library on which the procedure resides, as the operand of the LIB 
keyword. 


Following the //DECLARE statement, the step-level control language statements may be 
included in the procedure. The //JOB, //EOJ, //DATA, /* (data delimiter), and //CALL 
statements are not allowed. 


All run-time variables in the control language statements of a cataloged procedure have an 

ampersand (&) immediately preceding the operand. The ampersand identifies the operand as 

a variable to be replaced at run time. Note that the ampersand is a reserved character in this 
language, reference to it anywhere is interpreted as the lead character of a variable. 


Example: //DEC PROGFIL 
//DEF ID=FIL128,FIL=&PROGFIL 


In this example, the identifier is FIL128. The name of the file will be given as the operand 


of the keyword PROGFIL on the //CALL statement. PROGFIL is entered without an 
operand on the //DECLARE statement so there is no default value. 


4.1 


When PROGFIL is given as a keyword with no operand on the //DECLARE statement, it 
must appear as a keyword-operand on the //CALL statement. If an operand for PROGFIL 
appears on both statements, the operand given on the //CALL statement is used at run time. 


Examples: PROCED1 
//DEC PROGFIL,SOURCE=FIL1482 


In this example PROGFIL is specified as a required run-time variable in the called procedure 
PROCED1; whereas, SOURCE is optional. 


//CALL PROC=PROCED1,LIB=PROCLIB,PROGFIL=B1423 


In this example B1423 is given as the run-time variable for PROGFIL; the default for 
SOURCE is accepted. 


Where PROGFIL is given as a keyword-operand on the //DECLARE statement, a default has 
been established. The keyword is optional on the //CALL statement, and, if it is omitted, 
the value given as the operand on //DECLARE statement will be used. 
Examples: SPECIAL1 

//DEC PROGFIL=B1432,SOURCE=FIL1482 

//DEF ID=FIL128,FIL=&PROGFIL 

//PAR LINES=30,PAGES=60,GROUP=&SOU RCE 
This example sets two default values, PROGFIL and SOURCE. 

//CALL PROC=SPECIAL1,LIB=PROCLIB,SOURCE=FIL679 
This example accepts the default for PROGFIL and overrides the default for SOURCE. 


//(CALL PROC=SPECIAL1,LIB=PROCLIB,PROGFIL=140271, 
// SOURCE=FIL679 


This example overrides the defaults for both PROGFIL and SOURCE. 
/I(CALL PROC=SPECIAL1,LIB=PROCLIB,PROGFIL=140271 
This example overrides the default for PROGFIL and accepts the default for SOURCE. 
/ICALL PROC=SPECIAL1,LIB=PROCLIB 


This example accepts the default for both PROGFIL and SOURCE. 
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CATALOGING A PROCEDURE 


A cataloged procedure is entered into the system in the form of a data file which is normally 
placed on the source library specified as $SYSPROCLIB. It may, however, be placed on a 
private load library provided that the library is both shared and cataloged, and the //CALL 
statements contains a LIBRARY keyword-operand. In this case, the LIB keyword-operand 
is required on the //CALL statement to indicate which library the called procedure is 
located on. The data file (which consists of the procedure) is identified by the //DATA 
statement, which includes the name of the file being created, specified as the FILENAME 
keyword-operand. CLS=YES must be specified on the //DATA statement, to inform the 
system that control language statements are included in the data file. A data file may 
contain only one set of control language statements to be cataloged. Therefore, only one 
//DECLARE statement may be included in a single data file. 


In order to execute a cataloged procedure, it must be a member of a source library. A 
procedure is placed on a library via the UPDATE command of the LIBUTIL program. The 
methods for creating a library and the operation of the LIBUTIL routine are discussed in 
detail in the Program Library Services Reference manual. Any programmer cataloging 
procedures on libraries must be familiar with the contents of that manual. 


An example of a cataloged procedure may be found in Appendix G. 


USING CATALOGED PROCEDURES 


The method for including a cataloged procedure in a job is to reference that procedure on a 
//CALL contro! language statement. The name of the cataloged procedure to be called must 
be specified on the //CALL statement and must be identical to the member name specified 
to LIBUTIL when the procedure was placed on the library. 


The //CALL statement must give values for all variable symbols required by the procedure. 
The //CALL statement also specifies any default operands to be overridden. All other 
variable symbols specified on control language statements of the procedure, but not 
included on the //CALL statement, must be keywords for which default values have been 
specified on the //DECLARE statement. The following example shows a job calling a 
cataloged procedure: 


Example: //JOB NAME=JOB128,TYPE=1,USE=AZ10,PRI=4 
//(CALL PRO=PROC1621,LIB=PROCLIB,LINES=60, 
// DATE=010173,SOURCE=PAY ROLL1, 
// OBJECT=PAY ROLL2 
//EOS 


The following example shows a procedure that could be referenced by JOB128: 


//DECLARE SOURCE,OBJECT,LINES=55,DATE 
//EX PGM=COBOL 

//SET DATE=&DATE 

//PAR SMOD=&SOURCE,OMOD=&0BJECT 
//PAR LINES=&LINES 


This example specifies DATE, SOURCE, OBJECT, and LINES as variable symbols. DATE, 
SOURCE, and OBJECT must be given values on the //CALL statement whenever the 
procedure PROC1621 is called. A default is supplied for LINES, and may be overridden on 
the //CALL staternent. Only the //SET and //PAR statements of this procedure reference 
variable symbols. 
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A. SUMMARY OF CONTROL LANGUAGE STATEMENTS 


JOB LEVEL STATEMENTS 


Within a job, all control language statements are allowed. The following are required: 


First statement of every job. 


The first command following the //JOB statement, whether in line or as the first executable 
command (following //DECLARE) of a called procedure. 


//EXECUTE 
EXEC 
//EEX 


Last statement of every job. 
STEP LEVEL STATEMENTS 


//EXECUTE The first executable statement of every step; identifies the program to be executed. 
//EXEC 
/IEX 


The following statements may also be included: 


Specifies run-time parameters to the program. 


//DEFINE — Specifies devices, volumes, and files requested by the step. 
//DEF 


//ROUTE Allows output spooling or unit record device allocation. 
HMRTE 


IISET Specifies job date and/or POST byte switch settings. 


/ITELL Places messages on the operator’s console. 
MTEL 


HICALL Merges Control Language statements from a cataloged procedure. 


Comment statement. 


Within a step, the following statements are not allowed: 


First statement of every job. 


IIDATA Defines the following data file. If data is spooled, it may appear anywhere between //JOB 
HIDAT and //EQOJ. If not spooled, it must immediately precede the //EOu. 


Specifies the end of a card file. 


//(DECLARE Designates the following control statements as a cataloged procedure, provides the 
/{/DEC specification statement for the procedure. 


Provide for branching based on condition code test. 


Last statement of every job. 


INTERSTEP LEVEL STATEMENTS 


The only Control Language Statements occurring between steps are: 


Provide for forward branching based on condition code test. 


Comment statement. 
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CATALOGED PROCEDURES 


Within a cataloged procedure, the following control language statement is required: 


//DECLARE Specifies all keywords to be provided in calling the procedure; required as first statement of 
//DEC a cataloged procedure. 


The following statements may also be included: 


//EXECUTE The first executable statement of every step, identifies the program to be executed. 
//EXEC 


HEX 


Specifies run-time parameters to the program. 


/IDEFINE Specifies devices, volumes, and files requested by the step. 
//DEF 
HISET Specifies job date and/or POST byte switch settings. 


TELL Places messages on the operator's console. 
HITEL 


H/F Provide for forward branching based on condition code test. 
* Comment statement. 


The following statements are not lot allowed: 


{/JOB First st statement of every insiweiess 
IIDATA identifies the following data file. 
eas 


Specifies the end of a card file. 


eee Calls a cataloged procedure. 
HICAL 


I/EOJ Last staternent of every job. 


DATA LEVEL STATEMENTS 


A data file identified with the CLS=YES keyword on its //DATA statement may contain any control language statement, except 
/* (data delimiter) which terminates all data files. If CLS=NO on the //DATA statement, any control language statement except 
* (comment), will terminate the data file. CLS=YES has no meaning with FIL=SYSCRD. 


B. TABLE OF CONTROL LANGUAGE STATEMENT 
KEYWORD CHARACTERISTICS 


//JOB Statement 
Operand Field 
Keyword Size Content Default Remarks 
NAME= 1to8 Alphanumeric* None — required Specifies name of job as known to 
NAM= system. NAME keyword must appear 
on first card of statement. Jobs 
must have unique names. 
USER= 1to4 Aiphanumeric* Installation option. Required if 
USE= option selected at SYSGEN time. 
Identifies the user to system. 
TYPE= 1 0 Specifies partition in which is allowed 
TYP= 1 to run: 
2 0 indicates either partition 
1 indicates partition 1 
2 indicates partition 2 
as created at SYSGEN time or as 
modified by console command. 
PRIORITY= 1 - SYSGEN default As specified at SYSGEN time. Specifies 
PRI= specified by the order in which the jobs run in the 
installation partition. Highest priority is 9. 
HOLD= - HOLD=YES causes the job to remain in 
HLD= NO the job queue until the operator releases 


it for initiation. 


HOLD=NO causes the job to be initiated 
according to its type and priority. 


//EOJ Statement 


| No keywords | | ae Specifies end of job. 


Comment (*) Statement 


Enters comments into job stream. 


No keywords * in column 1 
followed by 
user comment 


*No embedded blanks or special characters except dash; alphabetic, numeric, and dollar sign in first character position. 
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//EXECUTE Statement 


Operand Field 


Keyword Size Content Default Remarks 


PGM= 1to8 Alphanumeric* None — required Specifies the name by which the program 
entry to be executed is cataloged on the load 
library. 


1to8 Alphanumeric* None Required if step is to be named; when- 
ever step is to be the argument of GO 
keyword in the //IF statement. 


Specifies name by which step is known 
to system. 


LIBRARY= Tto 17 Alphanumeric* Standard system Specifies name of library in which 
LIB= library loadable program code resides. 


4 Numeric value SYSGEN default Values in the range of 1 to 1440. Key- 
in minutes specified by word specifies time in minutes the step 
installation is allowed to run. Value 1440 allows 
step to run indefinitely. Value 1439 
allows step to run 23 hours 59 minutes 
before abort. 


- YES Dump only for DUMP=YES causes a main storage 
NO abnormal dump at end of step regardless of 
COND termination terminated status. 


DUMP=NO results in no dump being 
taken regardless of terminated status. 


DUMP=CON results in a dump only 
for abnormal termination. 


a YES No Specifies if program is to run in Debug 
NO mode. 


RESTART= Immediate} YES None Specifies if the program can be im- 
RES= = NO mediately restarted. The nnn specifies 
Deferred Numeric location of deferred restart. 
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//PAR Statement 


Application Contents of statement is application 
Dependent dependent. 
Example: 


//PAR COMMAND=UPDATE, 
/IPAR MTYPE=MAC, 


//PAR MEM=(,,EMULATE), 
//PAR MEM=(,,EMUCOM), 
//PAR MEM=(,,EMUEQU), 
//PAR OLIB=(LIB3,SYM), 
//PAR NEWSEQ=(1000,100) 


*No embedded blanks or special characters except dash; first character alphabetic, numeric, or dollar sign. 
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//DEFINE Statement 
Operand Field 
Keyword Size Content Default Remarks 

IDENTIFIER= 1to8 Alphanumeric* None — required Establishes logical relationship between 

IDENT= entry program file definition and physical 

ID= characteristics of file. Keyword specifies 
name by which file is known in step. 

FILENAME= 1to 17 Alphanumeric* None — required Cataloged name or tabel entry for the 

FIL= , entry if labeled file. PIO for physical I/O. TP for 
telecommunications. DUMMY for in- 
ternal handling. NULL for optional 
file. 

STATUS= _ Ss T Applies only to disc. 

STA= © Ly Type is Scratch, Temporary, 

My Work, or Permanent. Input, Output, 
(P,1) or Update usage is specified for 
(P,U) O for P only permanent files only. 

(P,O) 

MSC= 4 EBCDIC Blanks Modification security code. Used by 
Data Management to exclude un- 
authorized use of file. 

DEVICE= _ Name (DISC,1) | Specifies generic name, and quantity 

DEV= (name, quantity) (default quantity is 1), or unit 

address address(es) for devices. 
(address,..., 
address) 
VOLUME= 1to 6 Alphanumeric* Disc: Identifies the disc pack or tape reel. 
VOL= volid central catalog Tape: required 
(volid,..., ' Tape: Disc: required for files not listed, 
volid) none required or to be listed on central catalog 
entry 
CSD= — YES Yes Specifies that common stored data 
NO format is (YES) or is not (NO) used 
on tape input, or disc files. Note: adds 
4 to size if operand is YES. 
ORGANIZATION= 1 I tis indexed 
ORG= R R is relative 
ES S is sequential 
LABEL= 1 S For tape files only: 
LAB= N Sis standard 
U N_ is non-standard 
B U_ is unlabeled 
| Bis bypass 
| is ignored 
N, B, and | can be used for tape input 
files only. 


*No embedded blanks or special characters except dash; first character alphabetic, numeric, or dollar sign. 
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//DEFINE Statement (Continued) 


Operand Field 


Keyword Content Default Remarks 


RETENTION= Numeric Specifies the number of days a tape file 
RET= is to be retained. 


BUFFER= Numeric None — required Logical TCOM only. Specifies buffers 
BUF= for each lagical in partition. Number range of 1 to 999. 
Size range of 1 to 49999. 


//DEFINE Statement — Disc Space Allocation/Expansion 


NUMBER= Numeric None — required USE ONLY TO ALLOCATE A NEW 
NUM= to allocate a new DISC FILE. Number of records for 
disc file. which space is to be allocated; 
optionally the number of records 
for dynamic expansion. 
Disc Number of bytes per logical record 
record length (maximum for variable length). 
(record length, 
key length) 


Tape For indexed files, number of bytes 
record length in the key. 


Disc Specifies blocking factor. For variable 
data block length records, specifies minimum 
(data block, number of records. 

key block) 
Values in the 
range of 1 to 255 


LOCATION= 1- to 3-digit Specifies cylinder number on which file. 
LOC= numeric is to begin, or that file is to (YES) or is 
not required to (NO) begin on cylinder 
boundary. 


CATALOG= YES Specifies that file is to be (YES) or is 

CAT= NO not to be (NO) cataloged (central 
catalog). No is illegal for temporary 
and scratch files. 

VERIFY= YES Specifies that write-disc-check is to be 

VER= NO (YES) or is not to be (NO) used after 

each WRITE or PUT. 


CONTIGUOUS= YES Specifies that allocation or expansion 

CON= NO space is (YES) or is not (NO) to be 
SX contiguous; and whether it may be on 
MX single pack or multiple packs. 


SPREAD= Numeric Indexed files only. Frequency with 
SPR= 1 to 10 which consecutive logical records 


occur on track. 
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//DEFINE Statement — Disc Space Allocation/Expansion 


Keyword 


IVOLUME= 
IVOL= 
IvO 


ILOCATION= 
ILOC= 
ILO 


EXPAND= 
EXP= 


//ROUTE Statement 


IDENTIFIER= 
IDENT= 
ID= 


FILENAME= 
FIL= 


DEVICE= 
DEV= 


VOLUME= 
VOL= 


Operand Field 


Content 


Alphanumeric* 


1- to 3-digit 
numeric 
YES 

NO 


Numeric 


Alphanumeric 


Alphanumeric 
or NULL 


PRINTER 
PRT 


READPUNCH 
READERPUNCH 


RDRPUN 
device address 


Alphanumeric 


First volume 
of file 


None — required 
entry 


3-byte day of year, 
6-byte time of day, 
1- to 8-byte 
identifier 


PRINTER 


//ROUTE Statement — Disc Space Allocation/Expansion 


SPOOL= 
SPL= 


NUMBER= 
NUM= 


Numeric 


Disc record 
lerigth 


(1000,500) 
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(Continued) 


Indexed files only. Volume on which 
key index resides. 


Indexed files only. Specifies cylinder 
number on which key index is to begin 
(valid only if IVOL is used), or that key 
index is to (YES) or is not required to 
(NO) begin on cylinder boundary. 


Number of records by which to expand 
an existing sequential file; libraries 
cannot be expanded. See Table 2-2. 


Establishes logical relationship between 
program file definition and external 
characteristics of file, 


Catalog name of file. FIL=NULL 
specifies an optional file. 


Specifies the generic name or device 
address of the output file for the 
spool function. 


Specifies the volume serial number(s) 
for the data set. 


Specifies the file to be spooled (YES) 
or to go directly to the device (NO). 


Number of records for which space is 
to be allocated; optionally the number 
of records for dynamic expansion. 


Number of bytes per logical record. 


*No embedded blanks or special characters except dash; first character alphabetic, numeric, or dollar sign. 
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//ROUTE Statement — Disc Space Allocation/Expansion (Continued) 


Operand Field 


Keyword Content Default Remarks 

BLOCK= Disc data block Specifies blocking factor. 

BLK= 

CONTIGUOUS= Specifies that allocation or expansion 


S 

space is (YES) or is not (NO) to be 
SX SP contiguous; and whether it may be on 
MX | "| MP single pack or multiple pack. 


//ROUTE Statement — Spooling Information 


CON= 


name (SYSGEN name, Specifies Universal Character Set. See 
(name,FOLD, NOFOLD, MRX/OS Utilities Reference manual 
VER) NOVER) for FOLD and VER options. 
(name,NOFOLD, 

NOVER) 


Specifies whether file is or is not to be 
placed on the spooler hold queue. 


Specifies whether the file is to be or is 
not to be purged after it has been 
printed or punched. 


Decimal number Specifies the number of copies to be 
printed or punched. 


Alphanumeric Standard forms Specifies the form type for the operator 
to mount prior to printing or punching. 


//SET Statement 


mmddyy System date Specifies month, day and year. Set for 
(at beginning duration of job or until another //SET 
of job) DATE. 
SWITCH= 0 Zeros Zeros change corresponding bit positions 
SWI= 1 (at beginning to zeros. Ones change corresponding 
4 of job) bit positions to ones. X’s leave corres- 


ponding bit positions unchanged. Set 
for the duration of job or until another 
//SET SWITCH. Switches are set to 
zeros at beginning of job. 


//TELL Statement 


message None — required Message to console operator. 
entry. 


No Specifies initiation of step is (YES) or 
is not (NO) to be suspended until 
response is received from the console 
operator. 
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//\\F Statement 


Operand Field 


Content Default Remarks 


Keyword 


Value to be tested for, set in previous 
program by SETIF service request. 


None — required 
entry 


Any EBCDIC 
character 


Name of step to be skipped to if con- 
dition CODE value is met. EO if 
skipping all remaining steps of job. 


None — required 
entry 


1t08 


Alphanumeric* 


//(DECLARE Statement 


Procedure _ _- Refer to DEC and CALL statements in 
dependent Sections 2 and 4. 
Example: 
HiCALL PROC=XAMPLE, 
LIB=PROC1, 
// PNAM=XYZ, 
// MIN=5 
Procedure “XAMPLE” 
might be: 
//DECLARE PNAM,MIN=10 
//EX PGM=&PNAM, 
// TIME=&MIN 
/ICALL Statement 


Name of the procedure to be included 
with the control language statements 
of this job. PROC must be the first 
entry. 


None — required 
entry 


Alphanumeric * 


&SYSPROCLIB Specifies the private library on which 


the cataloged procedure resides. 


LIBRARY= 
LIB= 


1to 17 Alphanumeric* 


Example: 


/ICALL PROC=EMUGEN,LIB=EMUPROCLIB, 
MACVOL=$SYSPK, 
If OBJVOL=EMUVOL,OBJLIB=EMUOBJLIB, 
LODVOL=$SYSPK, 
LODLIB=$SYSLODLIB,SYSVOL=$SYSPK, 
NUM=2000 


/ 


*No embedded blanks or special characters except dash; first character alphabetic, numeric, or dollar sign. 
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//IDATA Statement 


Operand Field 


Keyword Content Default 


FILENAME= 
FIL= 


Alphanumeric* None — required 


entry 


Value in the 
range 1 to 12 


NUMBER= 
NUM= 


Numeric value 


CONTIGUOUS= 
CON= 


Remarks 


Names the file to be built from records 
which follow. Specifies filename used 
on input //DEFINE statement. 
FIL=SYSCRD if data read by program 
directly from card reader. 
Keyword specifies there are (YES) or 

are not (NO) control language statements 
in following data file. Has no meaning 
when FIL=SYSCRD is used. 

Specifies blocking factor used in data 
spooling. Ignored when FIL=SYSCRD. 
Specifies number of logical records for 
which space will be allocated. Maximum 
is 32,767. Ignored when FIL=SYSCRD. 


Keyword specifies that there is (YES) or is 
not (NO) the requirement of contiguous 
space. Ignored when FIL=SYSCRD. 


*No embedded blanks or special characters except dash; first character alphabetic, numeric, or dollar sign. 


Statement: /* (data delimiter) 


No Keywords 
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C. TABLE OF REQUIRED AND OPTIONAL KEYWORDS 
BY CONTROL LANGUAGE STATEMENT 


JOB LEVEL STATEMENTS 


Statement Keyword 


//JOB NAME= 
NAM= 


USER= 
USE= 


TYPE= 
TYP= 
PRI= 


HOLD= 
HLD= 


Required 
or 
Optional 


Fiat ni 


Required/ 


Optional 


PRIORITY= 


Optional 


Installation option. 
Required if installation requires at SYSGEN time. 
Optional if installation does not require it. 


H/EOJ None 


* (comment) None 


STEP LEVEL STATEMENTS 


/IEXECUTE 
//EXEC 
I/EX 


LIBRARY= 
LIB= 


Required 


ee 


Required 


End of job 


Optional 


Optional 


No default 


No default 


TIME= 
TIM= 


Optional 


DEBUG= 


RESTART 

RES= 
Application 
dependent 


Optional 


Optional 


Optional 


PGM=RESTART must be speicifed in //EXEC statement; 
may specify either immediate or deferred restart. 


Optional 


No default; no continuation. Multiple statements acceptable. 


//DEFINE 


IDENTIFIER= 


Required 


//DEF ID= 

for file —_—__——. 
and device FILENAME= 
use FIL= 


Required 


Required for disc and tape; DUMMY, NULL, PIO can all 
refer to unit record. 
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Required 
or 
Statement Keyword Optional Notes 

STATUS= Optional Disc files only; usage for permanent files only. 
STA= 
MSC= Optional 
DEVICE= Optional 
DEV= 
VOLUME= Optional Tape and disc files 
VOL= 


CSD= Optional Tape and disc files 


ORGANIZATION=| Optional 
ORG= 


Optional Tape files only 


RETENTION= Optional Tape files only 
RET= 
BUFFER= Optional Logical TCOM only. Requires 1 per line. 
BUF= 
//DEFINE NUMBER= Required to Use indicates space to be allocated. 
//DEF NUM= allocate a EXP may not be used 
(for disc new disc file. 
space -_ Sane 
allocation SIZE= Required for Keysize for indexed disc files only. 
and SIZ= disc if NUM 
expansion) is used. 
Optional for 
tape. 
BLOCK= Optional Applies to tape and disc files. Key block for indexed disc 
BLK= files only. 
LOCATION= Optional 
LOC= 


ORGANIZATION=} Optional 


ORG= 

CATALOG= Optional 

CAT= 

VERIFY= Optional 

VER= 

CONTIGUOUS= Optional Allocation and expansion 
CON= 

SPREAD= Optional Indexed files only 
SPR= 

IVOLUME= Optional Indexed files only 
IVOL= 

ILOCATION= Optional Indexed files only 
ILOC= 


Statement 
//DEFINE 


(disc file 
expansion) 


//ROUTE 
RTE= 


IISET 
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Required 


//TELL= 
//TEL= 


or 
Keyword Optional 
EXPAND= Required to Use requires BLOCK equal to value specified at file allocation. 
EXP= expand an Excludes NUMBER keyword. 
existing disc 
file. 
IDENTIFIER= Required 
IDENT= 
ID= 
FILENAME= Optional NULL specifies optional file. 
FIL= 
DEVICE= Optional 
DEV= 
VOLUME= Optional 
VOL= 
CONTIGUOUS= Optional 
CON= 
BLOCK= Optional 
BLK= 
SIZE= Optional 
SIZ= 
SPOOL= Optional 
SPL= 
NUMBER= Optional 
NUM= 
UCS= Optional 
HOLD= Optional 
HLD= 
SAVE= Optional 
SAV= 
COPY= Optional 
COP= 
FORMS= Optional 
FOR= 
DATE= Optional 
DAT= 
SWITCH= Optional 
SWI= 
OP= Required No continuation; multiple statements acceptable. 
PAUSE= Optional 
PAU= 
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PROCEDURE LEVEL STATEMENTS 


Required 
or 
Keyword Optional 


//DECLARE Procedure Statement may contain no keywords. Operands are required 
HIDEC dependent only to specify defaults. 


HiICALL Required 
HICAL 


LIBRARY= Optional 
LIB= 


Procedure Required for all keywords listed on procedure //DECLARE 


dependent without operands. Otherwise, used with operands only to 
override defaults. 


INTERSTEP LEVEL STATEMENTS 
Required 


Required 


DATA LEVEL STATEMENTS 


IIDATA FILENAME= Required 
//DAT FIL= 
Optional No meaning when FIL=SYSCRD used. 
Optional No meaning when FIL=SYSCRD used. 
NUMBER= Optional Default = 1000. No meaning when FIL=SYSCRD used. 
_ CONTIGUOUS= Optional! No meaning when FIL=SYSCRD used. 
/* 


(Delimiter) 


D. SYSTEM CONTROL INTERFACE 


Control functions are provided for programs through Control! Program service request 
macros. These macros are used in problem programs to obtain information from system and 
job tables, to access data that is set at run time with control language statements, to make 
the contents of the //PAR statement available to the executing program, and to write on the 
job’s system output (SYSOUT) file. 


The following paragraphs describe the Control Program service request macros referenced in 
this document. All programmers using these service requests must be familiar with the 
format and further explanation of the macros located in the Control Program and Data 
Management Services, Basic and Extended Reference manuals. 


HALT, EHALT, AND ABEND MACROS 


The problem program signals the system that it has completed its processing, and causes the 
Step Terminator to be loaded by executing a HALT or EHALT service request macro. The 
HALT macro is used to perform normal termination of a user job step; the EHALT macro 
requests termination of a step and causes the remaining steps of a job to be skipped. The 
ABEND macro requests abnormal termination of a job and passes a completion code to 
Control Language Services for display. 


When an error occurs (such as an I/O error, memory parity error, or attempt to write 
beyond the end of a program area), the program terminates abnormally. The Step 
Terminator is then loaded by the Control Program and receives control of the partition. A 
memory dump may occur, depending upon the dump keyword of the //EXECUTE 
statement. 


SDATE AND JDATE MACROS 


The //SET control language statement may be used to specify the job date. This date is then 
used for date dependencies within the job. If the job date is not given with a //SET 
statement, the system date is used for these job dependencies. 


The system date and the job date may be sent to the user program through the use of 
SDATE (system date) and JDATE (job date) macros respectively. The user may specify 
either the calendar date format or the Julian date format to be sent to his program. (Refer 
to Control Program and Data Management, Basic Reference manual for detailed description 
of these macros and formats.) If the job date has not been defined by a //SET statement it 
will be set to the system date by the operating system. 
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POST AND RPOST MACROS 


The //SET control language statement may be used to specify the contents of the switch 
communication byte (eight switches available to the problem program for communication 
between steps). The POST macro can be used to change the contents of the switch 
communication byte from within the problem program. The RPOST macro is provided to 
test the switch communication byte as set by previous POST macros or //SET control 
language statements. 


SETIF MACRO 


The //IF control language statement tests the code condition of the JTIFC byte in the job 
control table (JCT) and conditionally executes job steps based upon the results. The SETIF 
macro is used to set this byte in the JCT to a code which may be tested by the //IF 
statement. 


ACCEPT MACRO 


The //PAR contro! language statement enters run-time parameters for a problem program 
into the job’s system input (SYSIN) file. The ACCEPT macro provides the problem program 
with the ability to read the steps //PAR statements into the program from the SYSIN file. 


Each execution of the ACCEPT macro loads a single input line into the specified program 
buffer. The line is transferred into the buffer in EBCDIC. The macro updates a pointer in 
the requester’s JCT so that subsequent ACCEPT macro requests will acquire the next 
consecutive parameter line. When accepting one line past the last parameter line, control is 
passed to the location specified in the ACCEPT macro (or the problem program may specify 
the relative parameter line number for that step). 


DISPLAY MACRO 


The DISPLAY macro allows the problem program step to write messages directly onto the 
job’s SYSOUT file. The message may be any length up to 132 EBCDIC characters. By using 
this macro, the problem program can indicate progress and internal program conditions on 
the SYSOUT file, which is printed at the end of the job. 


MEMLIM MACRO 


The MEMLIM macro returns the address of the last addressable 256-byte memory page (256 
bytes) of the partition making the request. The value returned points to the beginning of the 
last memory page of the problem program area. 


The size of the problem program area, and therefore the address returned from a MEMLIM 
request, can vary depending upon the size and starting address of the partition and upon the 
specifications given to the Linkage Editor when the relocatable program load module is 
constructed. 


E. PARTITION LAYOUT AND USAGE 


GENERAL DESCRIPTION 


A partition is an area of main memory used for execution of problem programs. Two 
partitions (maximum) are defined at system generation time (SYSGEN). The sizes of the 
partitions may be changed from the console at IPL time, or by a subsequent SYSGEN. The 
Console Command program is used to adjust partition size at Initial Program Load (IPL) 
time. The procedures for this and other console operator activities are discussed in the 
MRX/OS Operating Procedures manual. 


The layout of the partition at program load time is shown in Figure E-1. The fixed areas 
(position and size) of the partition are: 


SLA — Standard Linkage Area 

TCT — Task Control Table 

JCT — Job Control Table 

FDT SYSIN — File Description Table for the system input file 

FDT SYSOUT — File Description Table for the system output file 
Other areas shown in the partition layout are: 


FDT PRIVATE LOAD LIBRARY — Present only when the program specified on 
the //EXECUTE statement resides on a library other than the standard system load 
library (SSYSLODLIB). 


FDT DEBUG — Present whenever DEBUG=YES is specified on the //EXECUTE 
statement. 


PROGRAM AREA — This portion of the partition varies with each step and is the 
size of the longest program module (offset by the root, if there are overlays to the 
main program). !f POOLSIZ is defined at the time the program modules are 
link-edited, the problem program area may be longer. 


PARTITION SPACE POOL — Contains: file description tables for all additional 
simultaneously open files, the check out debugging table when FDT DEBUG occurs, 
telecommunications buffers and tables when the step uses telecommunications, 
unused space not dedicated to any of the above listed uses. 


32 SLA 


PROGRAM AREA 
v2 ae ee 8 a he en PAGE 
BOUNDARY 
PARTITION 
SPACE 
POOL 
n-376 Oc eee, 
n-318 § FDOT DEBUG 
n-258 FDT PRIVATE LOAD LIBRARY 
n-198 FDT SYSOUT 
n-138 FDT SYSIN 
n-42 JCT 
n TCT 


Figure E-1. Partition at Program Load Time 


E-2 


STANDARD LINKAGE AREA (SLA) 


The Standard Linkage Area (SLA) occupies the first 32 bytes of the partition. This area 
immediately precedes the problem program or the executing Control Language Services 
module. The SLA provides for communication of parameters between system routines. 


Use of the SLA is an established system convention for Memorex Operating Systems. This 
standard method makes the interfaces between the operating system and the executing 
program identical to the interface between a subroutine and the higher level calling program. 


The Standard Linkage Area contains the program return address, status information, and the 
register save area. The layout of the SLA and a description of its contents is given later in 
this appendix. 


TASK CONTROL TABLE (TCT) 


The Task Control Table (TCT) occupies the last 46 bytes of the partition. Space for the 
TCT is permanently allocated and is available at IPL time. The Task Control Table contains 
information on threading, task status, mode, service requests, and error recovery. The TCT 
also includes a register save area and pointers to other tables in the partition. The 
information in the TCT is set and used by System Control program to coordinate system 
task execution. System tasks are initiated to process block I/O, supervisor service requests, 
and error recovery. 


The layout of the Task Control Table and a description of its fields is given later in this 
appendix. 


JOB CONTROL TABLE (JCT) 


The Job Control Table (JCT) occupies space immediately preceding the Task Control Table 
(TCT) in the partition. Space for the JCT is permanently allocated in the partition and is 
available at IPL time. The length of the Job Control Table is 96 bytes. The JCT contains 
information on the partition, the job, the currently active step, and pointers to Control 
Language statements. Control information also indicates whether the problem program, or 
the Control Language Services program is active in the partition. 


The information in the JCT is set and modified by the following system programs: 


@ Contro! Language Services 

® System Control Program 

® Relocating Program Loader 
e Data Management Services 
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e Debug Program 


® Dump Program 


FILE DESCRIPTION TABLES (FDT) 


A File Description Table is created in the partition for each file that is used in a job step. An 
FDT is built as a result of an OPEN request for a file. A request to CLOSE a file, except 
close with lock and close spooled file, releases the FDT space to the partition space pool. An 
FDT exists for every simultaneously open file. FDT’s for files closed with lock and for 
closed spooled files are released at step termination. 


The File Description Table contains details on the location, status, organization, and 
condition of the file; information on the !/O performed on the file; and pointers to 
preceding and following FDT’s. Information is placed in the FDT’s from SYSIN, the central 
and pack catalogs, the unit tables, and problem programs. Entries in the FDT’s are made by 
System Control program, Block 1/0, Data Management, OPEN, CLOVE, and CLOSE. 


The FDT is 60 bytes in length. The common area of the FDT, is 40 bytes in length. This 
portion of the table applies to all types of files and contains general information. The 
remainder of the FDT is 20 bytes in length and is device dependent. Refer to Control 
Program and Data Management Services, Basic Reference manual for format and content of 
the FDT. 


CHECKOUT DEBUGGING TABLE (FDT DEBUG) 


A checkout debugging table is created for each step that requests the Debug routine. When 
the Step Initiator encounters DEBUG=YES on an //EXECUTE statement, the debug status 
bit is set in the JCT. The Debug routine receives control after the program is loaded and 
builds the checkout debugging table for the step. This table includes a header for the 
program and an entry for each breakpoint requested for the step. Refer to Control Program 
and Data Management Services, Extended Reference manual for format and content of the 
debug table. 


PROBLEM PROGRAM AREA 


The problem program area immediately precedes the partition space pool. The space 
allocated for the problem program is determined by the Relocating Program Loader. This 
space includes the SLA which is a permanent 32 byte offset of the program. The end of the 
program, like the end of the partition, is a hardware page boundary (256 byte increments). 
If the length of the program plus the SLA does not end at a page boundary, the area will be 
extended to the next page boundary by the loader. 


The size of the problem program segment that occupies main memory at any given time will 
be affected by the coding techniques and the language processor used. For assembly 
language programs, the use of logical telecommunications and logical data management 


facilities result in the assembly of necessary buffers and tables as a part of the program 
segment. 


PARTITION SPACE POOL 


The partition space pool extends from the end of the area allocated for the problem 
program to the beginning of the FDT’s for files built at job and step initiation times. The 
partition space pool cannot be accessed by the program directly. It is available for use only 
by Checkout Debugging, Telecommunications, and Data Management. 


The size of the partition space pool is dependent upon the size of the partition, the amount 
of space allocated for problem program execution, and the space required for tables at the 
end of the partition. The partition space pool must be large enough to contain: 


@ An FDT for each simultaneously open file that was opened by the 
program (excludes FDT’s for files opened by the Step and Job 
Initiator, such as SYSIN, SYSOUT, DEBUG, PRIVATE LOAD 


LIBRARY). 

a The debug directive tables for all modules in the step, if Debug is 
used. 

e All of the buffers and tables required for the entire step, if 


telecommunications is used. (Refer to Telecommunications 
Reference manual for these requirements.) 


TABLE AREA 


System and Control Language Services Tables for the partition immediately follow the 
partition space pool. These tables are the TCT, JCT, and FDT’s for those files opened for 
the job by the Job !nitiator and Step Initiator. 


As shown in Figure E-2, the tables area always includes at least two FDT’s. These are 
required for SYSIN and SYSOUT which are opened at job initiation time. If opened at step 
initiation time, one, two, or no additional FDT’s will be built, for Debug and/or a private 
load library. These must be specified in the control language statements for the step. 


lf either Debug or a private load library is used, but not both, 60 additional bytes will be 
available in the partition space pool. When neither Debug nor a private load library is used, 
an additional 120 bytes are available in the space pool. 


Debug and private load library files, when used, remain open for the duration of the step 
and must not be closed by the problem program. The SYSIN and SYSOUT files also remain 
open. Therefore, the space used by their FDT’s is never available for use for other file FDT’s 
in a step. 


PROGRAM AREA 


HARDWARE 
PAGE 
BOUNDARY 


FDT CARD PARTITION. 
ee eae SPACE 
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TCOM TABLES AND BUFFERS 
1-318 CHECKOUT DEBUGGING TABLES 
n-258 _____ FDOT DEBUG 
n-198 ____ FDTSYSOUT 
n-138 | _FDT SYSIN 
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TCT 


Figure E-2. Partially Filled Partition Space Pool 


PARTITION SPACE MANAGEMENT 


The main storage area in the partition space pool is managed by the System Control 
program. Requests for space in the pool are made by Data Management OPEN and CLOVE, 
Checkout Debugging, and Telecommunications. Space is returned to the pool via a request 
to System Control. 


When the amount of space in the pool is near that required for FDT’s, Checkout Debugging 
tables, and telecommunications buffers for the step, the programmer must be concerned 
with management of the space pool. When there is insufficient space in the pool to fill a 
request, OPEN or CLOVE requests return the error to the caller, other requests abort the 
job. If the requirement is for Telecommunications, this will happen at the beginning of the 
program when that space is requested. An unfilled request for space for Checkout 
Debugging will abort the job after the module is loaded and its requirements cannot be met. 
However, when a file is to be opened, late in the execution of a step, and its FDT cannot be 
accommodated in the partition space pool, the job is aborted. 


The following paragraphs discuss, by topic, details about the entries in the space pool and 
how that space is managed. Optimization techniques are also included. 


SPACE REQUESTS 


Requests to obtain space in the pool are filled from the highest available location in the 
pool. This allows the largest possible block of contiguous space to exist in the pool near the 
end of the problem program area. A request to return space to the pool releases the space 
where it occurs and threads that space to the already available pool space. The pool is not 
_reconfigured after a request to release space. That is, space fragments will occur in the pool. 
When an area is released that is contiguous with already available pool space, the two areas 
form a single block of available space in the pool. 


CHECKOUT DEBUGGING 


Checkout Debugging requires space in the pool for a header and for each breakpoint in a 
program (including those in overlays not resident in the partition). (The Control Program 
and Data Management Services, Extended Reference manual describes the operation and use 
of the Checkout Debugging routine.) 


When Checkout Debugging is used, the number of breakpoints requested must be 
determined by the size of the partition available and other space requirements of the 
program. Once a section of code is actually debugged, the debug directive file should be 
removed and the //EXECUTE statement should specify DEBUG=NO. A program requiring a 
larger number of files simultaneously open or a larger telecommunications capability can be 
accommodated only when Debug is used judiciously. 


E-7 


TELECOMMUNICATIONS 


Telecommunications requires table space for the task, and for each line, terminal, size of 
buffer, and buffer assigned to a step. In addition all buffer space defined for 
telecommunications is taken from the partition space pool. (Refer to telecommunications 
tables in the Telecommunications Reference manual.) 


For telecommunications, buffer size should be usable. More than two buffers per line (one 
for input and one for output) is wasted in the system and should not be used. The number 
of terminals also greatly effects the space requirement for telecommunications in the pool. 


REDUCING THE SIZE OF THE SPACE POOL 


The size of the partition space pool can be reduced by the programmer, increasing the size 
of the problem program area allocated. This is done by supplying a value for the POOLSIZ 
parameter at the time the program is link-edited. When this parameter is supplied to the 
Linkage Editor it specifically defines the largest amount of space required for all entries 
which will simultaneously occupy the partition space pool. 


The space occupied by the tables area at the end of the partition plus that specified as 
POOLSIZ will be added, and rounded to the next higher page boundary (unless that sum 
can be evenly divided by 256, the size of a page). The program/partition space pool 
boundary is set at that address. The program has access to the area between the actual end 
of the program and the end of the allocated problem program area. The programmer obtains 
the information as to the bounds set by the loader in allocating that space, through the 
MEMLIM macro. The program can then calculate the remaining space and use it to optimize 
program operation. (The MEMLIM macro is described briefly in Appendix A. Refer to 
Control Program and Data Management Services, Extended Reference manual for detailed 
information.) 


The Linkage Editor POOLSIZ parameter is intended for use by system programs, but is 
available to application programs as well. Use of these implied techniques requires a clear 
understanding of the operation of the partition space pool and of each system program 
obtaining space from the pool (Telecommunications, Checkout Debug, and Data 
Management). The programmer must also be completely familiar with the operation of 
Linkage Editor. (See the Program Library Services Reference manual, Linkage Editor 
section for a further description of POOLSIZ.) 


Standard Linkage Area (SLA) 


0 RETURN 
2 PREVIOUS 
4 _ STATUS 
6 REGISTER 0 
8 REGISTER 1 
10 REGISTER 2 
12 REGISTER 3 Register 
14 — REGISTER 4 pele 
16 REGISTER 5 
18 REGISTER 6 
20 REGISTER 7 


: i fe Te sR is 
Request 


Return Code Packet 


Reserved 


RETURN Return address in the calling program 
Points to Halt Request Packet (byte 22 of SLA) 


PREVIOUS Address of save area in calling program (higher level program) 
Zero if no higher level program exists 
Always zero for SLA 


STATUS | Used for communication between calling program and called program 
Always zero for SLA 


REGISTER 0 Contents of Register 0 
Saved by called program in execution 


REGISTER 1 Contents of Register 1 
Saved by called program in execution 


REGISTER 2 Contents of Register 2 
Saved by called program in execution 


REGISTER 3 Contents of Register 3 
Saved by called program in execution 


REGISTER 4 Contents of Register 4 
Saved by called program in execution 
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Bytes Bits Description 


REGISTER 5 16,17 0-7 Contents of Register 5 
Saved by called program in execution 


REGISTER 6 18,19 0-7 Contents of Register 6 
Saved by called program in execution 


REGISTER 7 20,21 0-7 Contents of Register 7 
Saved by called program in execution 


SR 22 0-7 Service Request (SR) 
Function Code 
Function Code=i 34 6 for SR 


23 0 Location of parameter string 
O String immediately follows SR 
1 String address contained in Register 6 
Always zero for SLA 


23 1 Indicates when control is to be returned to requester 
QO Control returned after SR is complete 
1 Control returned after SR is recognized by System Control Program 
Always zero for disc HALT packet 


23 2 Indicates if requester will perform exception processing 
O Requester will not process exception completion of this request 
1 Requester will process exception completion of this request 
Always zero for disc HALT packet 
Reserved 23 3 Reserved for system use 
CLASS 23 4-7 Major class in which the SR falls 
Class=2 for Halt Request Packet, Unrestricted System Control Service 


Request 


24 0-7 Particular Service Request within a class 
Code=40, ¢ for HALT 


Length 25 0-7 Specifies length (in words) of the parameter string for this request 
Length=2 for this packet 


26 0 Service Request has not completed 
Service Request has completed 


26 1 No-error condition 
An error condition has occurred 


26 2 File End Condition has not occurred 
File End Condition has occurred 


Reserved 26 3-7 Reserved for system use 
RETURN CODE | 27 0-7 Further describes ERROR and END conditions 


Reserved 28-31 0-7 Reserved for system use 


TASK CONTROL TABLES (TCT) 


TTSRS 


1D1 

12 
14 TTJCT 
16 TTWQUE 
18 TTCOEB 
20 TTRO 
22 TTR1 
24 TTR2 
26 TTR3 
28 TTR4 
30 TTRS 
32 TTR6E 
34 TTR7 
36 TTCRG 
38 TTPRG 
40 TTCMCB 

TTEPT 

TTDES 


TTBTH 
TTBLK 


TTSRS 
TTTD 
TTAC 
TTAG 
TTSU 
TTWD 
Reserved 
TIWX 
TTWA 
TITS 
Reserved 
TTDC 
TTIN 
Reserved 
TTDL 


TTDB 


TTDT 


TTPR 
TTAB 
TTPD 
TTIC 
TTPRI 
TTID1 


TTIiD2 


Bytes 


0,1 


2,3 


" 
11 


Bits 


0-7 


0-7 


0-7 


0-7 


Description 


Forward thread 
Used for general threading 


Backward thread 
Used for DELAY threading 


Blocking pointer value 
Used for blocking condition information 


Count of outstanding SR’‘s 

Indicates TCT table (if set) 

Indicates that the task is active (if set) 

Indicates that the task is assigned to a processor (if set) 
Indicates task suspension (if set) 

Indicates a WAIT blocking condition (if set) 

Reserved for system use 

indicates WAIT for compietion of any outstanding SR’s (if set) 
Indicates WAIT for completion of all SR’s (if set) 

Indicates termination sequence (if set) 

Reserved for system use 

Indicates cycle-down at a displaced Debug instruction (if set) 
Indicates that INFORM mode is requested (if set) 

Reserved for system use 

Indicates task is ina DELAY blocking condition (if set) 


Indicates DELAY “break”; the completion of any outstanding 
SR will satisfy the DELAY (if set) 


Indicates the type of DELAY 


O means delay in seconds 
1 means delay in 1/60 seconds 


Indicates privileged mode (if set) 

Indicates that this task is being aborted (if set) 
Indicates a partition (not system) TCT (if set) 
Indicates instruction cycle-down mode (if set) 
Indicates task priority 

Task identification fields 


lf TTPDBIT=0 
TTID1 and TTID2 provide for system task identification 
If TTPDBIT=1 


TTID2 provides PID for partition task identification 


E-12 


12,13 Pointer to first FDT associated with the tasks instance of 
execution 


14,15 Pointer to an associated JCT 

16,17 Provides a task QEB request queue 
18,19 Pointer to the current OEB 

20,'21 | Save area for Register 0 


22,23 Save area for Register 1 


24 25 Save area for Register 2 


26,27 Save area for Register 3 

28,29 Save area for Register 4 

30,31 Save area for Register 5 

32,33 Save area for Register 6 

34,35 Save area for Register 7 

36,37 Save area for Condition Register 

38,39 | Save area for Program Register 

40,41 Pointer to Communications Master Control Block 
42,43 Program entry point 


44,45 Program descriptor 


E-13 . 


JOB CONTROL TABLE (JCT) 


0 JSTAT PID 
2 eee eee res LL Lee 
4 JTFAD 
6 JSTPRO 
8 
JTCEP 
10 
12 JSTDBCT 


14 JTDBI 


LENGTH 


18 Rane RETURN CODE 


JTLPK 


24 NAMEADR 


28 LODADR 
30 JTCOM 


32 ; JTPOST JTIFC 


34 JTCLS JTPRI 


JTNAM 


JTSTP 


JTACC 


JTSTIM 


JTETIM 
62 


E-14 


64) JTLIM 


66 7 es JTJCS 
68 eee JTDEF 
70 —— JTPAR 
72 ee ee JTSWI 
74 JTCHKP 


ee 


JTCOMA 
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JSTAT 


PID 


JTPSP 


JTFAD 


JTPRO 


JTCEP 


JTDBCT 


2,3 


4,5 


6,7 


8-11 


12,13 


0-7 
0-3 


0-7 


0-7 


0-7 


Description 


Used to convey information among systems programs. 
Modified by System Control Program, Control! Language 
Services, and computer operator. 

Used by Relocating Program Loader, System Control 
Program and Contro! Language Services 


User Active 

Job Monitor Active 

User Blocked . 

Job Monitor Blocked 

Private Library Indicator (Loader) 
Halt Job at Step End 

System Card Reader Assigned 
Operator Attention 

Debug Mode 


Dump Indicator 
00 = Dump if abnormal 
Ot = Never dump 
10 = Always dump 


Private Library Indicator (Master) 


Partition Identifier. 
Set by System Control Program. 
Used by Control Language Services and Program Loader. 


Partition Space. 

Pointer to the first entry in the chain of available memory space. 
Modified by System Control Program and Program Loader. 
Used by Control Language Services, Data Management Services, 
Program Loader, and System Control Program. 


First Address Available to Loader. 

Conveys to the Program Loader the first memory location where 
the program may be loaded. 

Modified by Control Language Services. 

Used by Program Loader. 


Program Load Address. 
Gives the address of the beginning of the problem program. 
Set and used by Program Loader. 


Composite Entry Pointer. 

Disc block pointer to the Load Library block at which the 
Composite Entry Point List begins. 

Set and used by Program Loader. 


Debug Control Table Pointer. 
Pointer to storage address of Debug Control Table. 
Set and used by Debug program. 


JTDBI 14,15 0-7 Debug Instruction. 
First two bytes of the instruction overlaid by the Debug 
service request. 
Set by Debug program. 
Used by System Control Program. 


JTLPK 16-27 0-7 Loader Packet. 
Required for calling Program Loader. 
Modified by Control Language Services, System Control 
Program, and Program Loader. 
Used by System Control Program and Program Loader; 
and divided as follows: 


FC 16 0-7 Function Code 1046 
LENGTH 17 0-7 Length of this Packet 7 words 
Cc 18 10) Request Complete Indicator 


O Request has not completed 
1 Request has completed 


A 18 1 Completion Status Indicator 
O Normal Completion 
1 Abnormal Completion 


END 18 2 END bit 
0 File End Condition has not occurred 
1 File End Condition has occurred 


Reserved 18 0-7 Reserved for system use 
RETURN 19 0-7 Return Code 
1 1/0 Error 
2 Cannot locate module via Entry Point List 
3 Cannot locate module via library catalog 
4 Module exceeds Partition limits 
5 Invalid Load Address 
Reserved 20 0-7 Reserved for system use. 
21 0-4 
SFC 21 5-7 Subfunction Code 
O Load by Entry Point 
1 Load by Entry Point at Load Address 
2 Load by Module Name 
3 Load by Module Name at Load Address 
4 Fetch by Entry Point 
5 Hlegal 
6 Fetch by Module Name 
7 JMSI Fetch Request (Contro! Language Services only) 
Reserved 22,23 0-7 Reserved for system use. 
NAMEADR 24,25 0-7 Address pointing to 8 byte Module or Entry Point Name. 
Reserved 26,27 0-7 Reserved for system use. 
LOADADR 28,29 0-7 Relative load address (if SFC = 1 or 3 only). 
JTCOM 30,31 0-7 Completion Code. 


Conveys completion status of problem program. 

Set by System Control Program. 

Used by Control Language Services, Dump, and System 
Control Program. 
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JTPOST 
JTIFC 


JTCLS 


JTPRI 


JTNAM 


JTSTP 


JTACC 


JTSTIM 
JTETIM 


JTLIM 


JTJCS 


JTDEF 


JTPAR 


Description 


Program Option Switch Table. 
Provides inter-program switch testing and setting capabilities. 
Set by Problem Program and Control Language Services. 
Used by Problem Program. 


Job IF Code. 

Any EBCDIC value that is set by a Problem Program via an 
SR. 

Tested by the Control Language //IF statement. 


Internal switch for Job Initiator abort condition. 


Immediate restart requested. 


Job Class. 
Used to indicate in which partition the user wants a job to run. 
Set and used by Control Language Services. 


Job Priority. 
Conveys priority of job, 1-9, as specified on the //JOB 
statement. Set and used by Control Language Services. 


Eight character job name (left justified space filled if less than 
eight characters) specified on the //JOB statement. 

Set by Control Language Services. 

Used ty Data Management and Control Language Services. 


Eight character step name (left justified space filled if less 
than eight characters) specified on the //EXECUTE statement. 
Set and used by Control Language Services. 


Account Number. 
Specified as user account number on //JOB statement. 
Used for accounting purposes. Set and used by Control 
Language Services. 


Step Start Time. 
Packed decimal form HHMMSS., 
Set and used by Contro! Language Services. 


Step Elapsed Time. 
Packed decimal form HHMMSS, 
Set and used by Control Language Services. 


Step Time Limit. 

Maximum number of minutes the user wishes to allow his 
program to run. 

Set by Control! Language Services. 

Modified and used by System Control Program. 


Next Job Control Statement. 
Block number of next record in SYSIN. 
Set and used by Control Language Services. 


First DEFINE. 

Block number of first DEF record in the SYSIN file for a step. 
Set by Control Language Services. 

Used by Data Management and Control Language Services. 


Next Parameter. 

Block number of next PAR record in the SYSIN file for a step. 
Set by Control Language Services. 

Used by System Control Program. 
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EOF switch for Accept macro. 


ABORT switch for Accept macro. 


Reserved for system switches. 


Reserved for system switches. 
Checkpoint Number. 


Job Date. 

Date specified for this job (need not be current date) used 

for date-dependencies in problem program. 

Form MMDDYYJJJ 

MMDDYY set by Control Language Services from system data or 
from DATE keyword of //SET statement if specified. 

JJJ caiculated from //SET statement. 

Used by problem program. 

Divided as follows: 

Calendar Month. 


Catendar Day. 
Calendar Year. 
Julian Date, 
Reserved Reserved for system use. 
JTCOMA Communications Area. 
Provides for communication between steps. 


Cleared by the Job Initiator module of Control Language Services. 
Set and used by executing program via SR. 
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F. INDEX—BLOCK SIZE FOR INDEXED FILES 


CALCULATING BY TABLE 


The minimum index block size and optimum block size may be calculated by Tables F-1 
through F-4. Refer to the MRX/OS Control Program and Data Management Services, 
Extended Reference manual for the layouts of the index portion of indexed files. 


MINIMUM INDEX BLOCK 


There is a minimum index block size for every indexed file depending on key size and file 
size. The user may utilize any index block size larger than the minimum, if he has memory 
space for a larger index block. The larger the index block the better retrieval becomes on 
random processing. If the user goes below the minimum index block size there is the 
possibility of not being able to create the file size as planned. 


OPTIMUM INDEX BLOCK 


When planning the creation of indexed files, the user must decide whether he wants to 
process the directory-directory, which resides on mass storage, in a main memory buffer. 
This option speeds up random processing, but requires extra space for the buffer. If the 
mode of processing is with a main-memory buffer there is a well-defined optimum index 
block size which minimizes memory space for the index buffer and directory-directory 
buffer. 


Once the user has determined his mode of processing, Table F-1 is used to determine 
minimum-keys/block and Table F-2 is used to determine optimum keys/block. Note that in 
using Table F-1 and Table F-2, the larger of the two values in the file size is the determining 
factor. Also note that these tables were computed for consistency for maximum key size 
and one million records as the upper limit. There will be some index block sizes generated 
that exceed one track in number of bytes. This exceeds the system limit for block sizes 
(limit is 7294 bytes). The user will have to choose a smaller key size or smaller file size. 


PROGRAMMING CONSIDERATIONS 


The keys/block is entered in the Control Language //DEFINE statement along with key size. 
The corresponding minimum or optimum index block size can be calculated from Table F-3. 
The resulting index block size is then entered in the source program. 


lf the user has determined to calculate the optimum keys/block and optimum index block 
size, Table F-4 is used to calculate the number of bytes for the main-memory buffer for the 
directory-directory entries. 
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The user must be careful not to exceed the file maximum at creation time when using the 
optimum block size — when he utilizes the main-memory buffer to hold the 
directory-directory entries for random processing, the buffer would not be able to hold all 
the entries, thus writing over the user program. Thus, when choosing an index block size 
other than the optimum and the main-memory buffer is used to process the 
directory-directory entries, the buffer size should be the size of the index block, as the 
system checks for overflow at creation time. 


EXAMPLES 
The following examples illustrate how to calculate the minimum index block size, the larger 
than minimum index block size, and the optimum index block size. 
MINIMUM INDEX BLOCK SIZE 
The minimum index block size can be calculated with the following steps. 
1. In Table F-1 locate the number of records in the file and the key 
size. For example, if the number of records is 20,000 and the key 


size is 10, the minimum keys per block is 24. 


2. The keys/block is entered in the Control Language //DEFINE 
statement along with the key size. 


S% The corresponding minimum index block size is calculated from 
Table F-3 using the minimum block size formula. For this example 
with minimum keys/block of 24 and key size of 10; the minimum 
index block size is 384 bytes. 


4. The minimum index block size is then entered into the source 
program. 

LARGER THAN MINIMUM INDEX BLOCK SIZE 
Similar to the minimum index block size, an index block that is larger than the minimum 
may be calculated with the same steps. The difference is found in estimating the keys/block, 
it must be greater than or equal to the minimum keys/block selected. 
OPTIMUM INDEX BLOCK SIZE 
The optimum index block size can be calculated with the following steps. 

ie In Table F-2 locate the number of records in the file and the key 


size. For example, if the number of records is 20,000 and the key 
size is 10, the optimum keys per block is 30. 
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The keys/block is entered in the Control Language //DEFINE 
statement along with the key size. 


The corresponding optimum index block size is calculated from 
Table F-3 using the optimum block size formula. For this example 
with optimum keys/block of 30 and key size of 30, the optimum 
index block size is 475 bytes. 


The optimum index block size is then entered into the source 
program. 


For optimum keys/block and optimum index block size, Table F-4 is 
used to calculate the main-storage buffer for the directory-to-the- 
directory entries. For this example, the number of bytes required for 
the buffer for the directory-to-the-directory is 250. 


F-2a 
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Table F-1. Minimum Keys/Block 


Key Size in Bytes 


Records in File to to to to to to 
2 3 4 5 6 7 8 9 10 15 20 25 35 50 100 


0 - 5,000 13 14 14 14 15 15 15 15 15 16 16 16 16 17 17 
5,000 - 10,000 16 17 18 18 18 19 19 19 19 20 20 20 21 21 21 
10,000 - 15,000 19 20 20 21 21 21 22 22 22 23 23 23 23 24 24 
15,000 - 20,000 20 21 22 23 23 23 24 24 24 25 25 26 26 26 26 
20,000 - 25,000 22 23 24 24 25 25 25 26 26 27 27 27 28 28 28 
25,000 - 30,000 23 24 25 26 26 27 27 27 28 28 29 29 29 30 30 
30,000 - 35,000 25 26 27 27 28 28 28 29 29 30 30 31 31 31 32 
35,000 - 40,000 26 27 28 28 29 29 30 30 30 31 32 32 32 33 33 
40,000 - 45,000 27 28 29 30 30 31 31 31 31 32 33 33 34 34 34 
45,000 - 50,000 28 29 30 31 31 32 32 32 33 34 34 34 35 35 36 
50,000 - 60,000 29 31 32 32 33 34 34 34 35 36 36 37 37 37 38 
60,000 - 70,000 31 32 34 34 35 35 36 36 36 37 38 38 39 39 40 
70,000 - 80,000 32 34 35 36 36 37 37 38 38 39 40 40 41 41 42 
80,000 - 90,000 34 35 36 37 38 38 39 39 40 41 41 42 42 43 43 
90,000 - 100,000 35 36 37 38 39 40 40 841 41 42 43 43 44 44 45 
100,000 - 125,000 37 39 40 4) 42 43 43 44 44 45 46 47 47 48 48 
125,000 - 150,000 40 41 43 44 45 45 46 46 47 48 49 49 50 51 51 
150,000-- 175,000 42 44 45 46 47 48 48 49 49 50 51 52 53 53 54 
175,000 - 200,000 44 46 47 48 49 50 50 51 51 53 54 54 55 56 56 
200,000 - 250,000 47 49 51 52 53 54 54 55 55 57 58 58 59 60 61 
250,000 - 300,000 50 52 54 55 56 57 58 58 59 61 61 62 63 64 64 
300,000 - 350,000 52 55 57 58 59 60 61 62 62 64 65 65 66 67 68 
350,000 - 400,000 55 57 59 61 62 63 63 64 65 67 68 68 69 70 71 
400,000 - 450,000 57 60 62 63 64 65 66 67 67 69 70 71 72 73 74 
450,000 - 500,000 59 62 64 65 67 68 68 69 70 72 73 74 74 75 76 
500,000 - 600,000 63 66 68 69 71 72 73 73 74 76 77 78 79 80 81 
600,000 - 700,000 66 69 71 73 74 75 76 77 78 80 81 82 83 84 85 
700,000 - 800,000 69 72 74 76 78 79 80 81 81 84 85 86 87 88 89 
800,000 - 900,000 72 75 77 79 81 82 83 84 85 87 88 89 91 91 93 
900,000 - 1,000,000 74 78 80 82 84 85 86 87 88 90 92 93 94 95 96 
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Table F-2. Optimum Keys/Block 


Key Size in Bytes 


11 16 21 26 36 51 
to to to to to to 


Records in File 


0 - 5,000 16 17 18 18 18 19 19 19 19 20 20 20 21 21 21 

5,000 - 10,000 20 21 22 23 23 23 24 24 24 25 25 25 26 26 26 
10,000 - 15,000 23 24 25 26 26 27 27 27 27 28 29 29 29 30 30 
15,000 - 20,000. 26 27 28 28 29 29 29 30 30 31 32 32 32 33 33 
20,000 - 25,000 28 29 30 31 31 32 32 32 33 34 34 34 35 35 36 
25,000 - 30,000 29 31 32 32. 33 34 34 34 35 36s 36 37 37 37 38 
30,000 - 35,000 31 32 33 34 35 835 36 36 37 37 38 38 39 39 §©40 
35,000 - 40,000 32 34 35 36 36 337 37 38 38 39 | 40 40 41 41 42 
40,000 - 45,000 34 35 36 37 38 38 39 39 40 41 41 42 42 43 43 
45,000 - 50,000 35 36 37 38 39 40 40 41 41 42 43 43 44 44 45 
50,000 - 60,000 37 39 40 41 42 42 43 43 43 45 £45 46 46 £47 48 
60,000 - 70,000 39 41 42 43 44 #44 45 45 46 47 48 48 49 £49 50 
70,000 - 80,000 40 42 44 45 46 46 £47 47 48 49. 50 50 51 52 52 
80,000 - 90,000 42 44 45 47 47 48 49 49 50 51 52 52 53 54 54 

90,000 - 100,000 44 46 47 48 49 50 50 51 51 53 54 54 55 56 56 
100,000 - 125,000 47 49 51 52 53. 54 54 55 55 57 58 58 59 60s G1 

125,000 - 150,000 50 52 54 55 56 57 58 58 59 61 61 62 63 64 64 
150,000 - 175,000 52 55 57 58 59 60 61 61 62 64 65 65 66 67 68 

175,000 - 200,000 55 57 59 61 62 63 63 64 65 67 68 68 69 70 71 

200,000 - 250,000 59 62 64 65 67 68 68 69 70 72 73 74 74 75 76 
250,000 - 300,000 63 66 68 69 71 72 73 73 74 76 77 78 79 80 81 

300,000 - 350,000 66 69 71 73 74 75 76 77 78 80 81 82 83 84 85 
350,000 - 400,000 69 72 74 76 78 79 80 81 81 84 85 86 87 88 89 
400,000 - 450,000 72 75 77 79 81 82 83 84 85 87 88 89 91 91 93 
450,000 - 500,000 74 78 80 82 84 85 86 87 88 90 92 93 94 95 96 
500,000 - 600,000 79 82 84 87 89 90 391 92 93 96 97 98 100 101 102 
600,000 - 700,000 83 87 90 92. 94 95 96 97 98 101 102 103 105 106 107 
700,000 - 800,000 87 91 94 96 98 99 100 102 102 105 107 108 110 111. 112 
800,000 - 900,000 90 94 97. 100 102 103 105 106 106 110 111 #112 +4114 «+115 116 
900,000 - 1,000,000 93 98 101 103 105 107 108 109 110 113 4115 116 118 4120) 121 
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Tabte F-3. Optimum or Minimum Index Block Size 


10) (oc cae | 


Optimum block size = 10 + 9 


OKB = Optimum keys/block 


KS = Key size 


Minimum biock size = 10 + | {10} Wwe) (Ks+4) | 


9 


MKB = Minimum keys/block 
KS = Key size 


NOTE: | = Round up if result not whole integer. 


Table F-4. Bytes Required in Buffer for Directory-Directory Entries 


Usage -[ 2(085.10) = US 


: ; | US | _ 
Number keys/primary index block (5 = NKP 


_US 
K 


i = — i= N 
Number keys/directory block Sid KD 


Total number keys represented/ 
directory biock = (NKP) (NKD) = NKRD 


Number entries in (se size 


~) NKRD 


Directory-directory block — |- NKDD 


Number of bytes required for 
buffer for directory-directory = 10+ (KS+2) (NKDD) 
entries 


Nore |- Round up if result not whole integer. 


[ ]- Round down if result not whole integer. 
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CALCULATING BY FORMULA 


If the user wishes to calculate keys/block based on a different file maximum than given in 
Tables F-1 and F-2, the following algorithms, along with Table F-5, can be used to compute 
minimum and optimum keys/block. The constants Ko and Km are taken from Table F-5 


based on key size. 


Optimum (OKB) + < i 


Minimum (MKB) + : 2 
Km 


FS = Maximum File Size 


NOTE: | = Round up if result not whole integer. 
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Table F-5. Constants for Alternate Algorithm 


Ko KS | 
2 2.5000 52 1. 
3 2.1776 53 1. 
4 1.9753 54 1. 
5 1.8367 55 1. 
6 1.7361 56 1. 
7 1.6598 57 1. 
8 1.6000 58 1. 
9 1.5518 59 1. 
10 1.5124 60 1. 
11 1.4792 61 1. 
12 1.4512 62 1. 
13 1.4272 63 1. 
14 1.4062 64 1. 
15 1.3880 65 1. 
16 1.3718 66 1, 
17 1.3574 67 1. 
18 1.3444 68 1. 
19 1.3328 69 1. 
20 1.3224 70 4: 
21 1.3128 71 1, 
22 1.3040 72 1. 
23 1.2960 73 1, 
24 1.2886 74 1. 
25 1.2818 75 1. 
26 1.2756 76 1. 
27 1.2696 77 1. 
1.2642 78 1. 
1.2592 79 1. 
1.2544 80 A: 
1.2498 81 1. 
1.2456 82 a; 
1.2418 83 1. 
1.2380 84 1. 
1.2344 85 1. 
1.2312 86 1. 
1.2280 87 1. 
1.2250 88 1. 
1.2222 89 1. 
1.2194 90 1. 
1.2168 91 1. 
1.2144 92 1. 
1.2120 93 1. 
1.2098 94 1. 
1.2076 95 1. 
1.2056 96 1. 
1.2036 97 1. 
1.2018 98 1. 
1.2000 99 1. 
1.1982 100 1. 
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G. CONTROL LANGUAGE STATEMENTS 
FOR 2 SAMPLE JOBS 


This appendix presents two jobs, a sample call on a COBOL compile-link-and-go procedure 
plus the job which entered that procedure on its library. They are working jobs actually 
executed in a particular installation, but they do not necessarily represent the only or ideal 
way to perform a compile-and-go task. Obviously, they are not meant to be comprehensive 
samples of all the CLS features, either. However, at least one of each control language 
statement type appears here, and the sens do serve as an illustration of the power of the 
Control Language. 


The PROCIN example shows the CLS required to enter a procedure in a private library. The 
member name, as identified in the MEM operand on the //PAR card, is the name by which 
the procedure may be called. The procedure code is loaded to a spooled data file 
PROCEDUR (choice of name is arbitrary, so long as it corresponds to a foregoing //DEF), 
referenced through the SEQIN //DEF required by the librarian. The LIST //DEF, also 
required by the librarian, identifies the list output device as a printer. The third //DEF 
identifies the library file on disc to which the procedure is to be entered. Since a private 
library has been specified here, the call must name that library with a LIB keyword-operand. 
lf the user wished to make the procedure available to all systems users, he could replace this 
//DEF with a //DEF for the standard system load library, $SYSLODLIB. Another 
possibility here would be to dedicate the system reader by use of SYSCRD, and avoid 
spooling. In this case the SEQIN //DEF and the //DATA cards would read: 


//DEF ID=SEQIN,DEV=SYSCRD 
/IDATA FIL=SYSCRD 
(The /*LIB is required in any case, being the librarian terminator.) 


As to the procedure itself, note the use of ampersands throughout the code, to show the 
occurrence of run-time variables. Each of these variables is formally identified in the 
//DECLARE at the head of the procedure. All are shown with default values except PGM: 
this implies that the PGM value must be supplied in the call, whereas the others may be 
defaulted. The comment cards indicate the significance of the variables. Note also the use of 
//\F statements to abort rest of job if fatal errors should occur in the compile step (compiler 
would set if-code of “’F’’) or in the link-edit step (linkage editor would set if-code of ‘‘F’’). 


Job CALL1 is a sample call on the procedure. {ts PROC and LIB keywords are coded first 
on the //CALL, as required by the Job Monitor, PROC=CBLEEX identifying the procedure 
by its library member name, and L1IB=COBOLSRC identifying the private library in which it 
appears. (As noted earlier, if the $SYSLODLIB had been chosen, the LIB keyword-operand 
could be omitted here.) 
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PGM=EXTO001 is coded as required, being used in the procedure to identify both input and 
output member name to the compiler. The SYSRES VOLID DEV100 is used to replace the 
default (RLS100) held by the procedure. Similarly, SPTV03 is specified as the volume used 
for !/O files and for COBOL work files. Note, however, that by omission of the SIZE, 
SRCFIL, SVOL, and DUMP keyword-operands on the //CALL, the user selects the working 
defaults on the procedure, taking 1000 as maximum number of source statements, selecting 
his source from the COBSRC library on SPTVO1, and choosing DMP=NO on the execute of 
the ‘‘go”’ step. . 


By coding a //TELL with PAU=YES after his call, the user ensures that execution of his 
go-step will not proceed until the operator has responded to his //TELL message, which 
requests use of 3-part paper. In like manner, the user may append additional //PAR cards, 
//DEF cards, etc., to be applied to the last named step of a //CALL. 
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//SOB » NAME=PROCIN 


//EX PGM=LIBUTIL 

//IPAR COM=UPDATE,MTYPE=PRO,MEM=CBLEEX,OLIB=COBSRC 
//DEF ID=LIST,DEV=PRT 

//DEF 1D=COBSRC,FIL=COBOLSRC,STA=(P,O) 

//DEF ID=SEQIN,FIL=PROCEDUR 


HDATA FIL=PROCEDUR,CLS=YES 
//DECLARE PGM,VOL=SPTV01,SRCFIL=COBSRC,SVOL=SPTV01,CBWRK=SPTV01, 


i SYSRS=RLS100,DUMP=NO 

: PROCEDURE: CBLEEX 

: I.E. COBOL COMPILATION 

* LINK EDIT 

. EXECUTE 

% 

. VARIABLES REQUIRED DEFAULT DESCRIPTION 

: PGM YES NONE PROGRAM AND SOURCE MEM 
: VOL NO SPTVO1 ALLOC OF 1/O FILES 

: SRCFIL NO COBSRC SOURCE FILE NAME 

. SVOL NO SPTVO1 VOLUME FOR ABOVE 

‘ CBWRK NO SPTVO1 ALLOC OF COBOL WORK 
: SYSRS NO RLSi00 - SYSRES VOL ID 

. DUMP NO NO DUMP PARM ON //EX 


//EX PGM=COBOL 

//PAR) OBJECT=YES,DMAP=Y ES,PMAP=Y ES, XREF=YES,OMEM=&PGM, |MEM=&PGM 
/IDEF (tD=OUTPUT,FIL=SPT--CB—OBJ—MOD,STA=T,NUM=1000,SIZ=256, 
// BLK=1,CSD=NO,VOL=&VOL,CON=YES 

//DEF 1D=INPUT,FIL=&SRCFIL,STA=(P,1), VOL=&SVOL,CAT=NO 

DEF  ID=LIST,DEV=PRT 

//(DEF !tD=MRSIFIL,FIL=DUMMY,VOL=&CBWRK 

/IDEF !D=MRELFIL,FIL=DUMMY,VOL=&CBWRK 

/IDEF iD=MRTEXTO01,FIL=DUMMY,VOL=&CBWRK 

/IDEF 1ID=MRVIRTAL,FIL=DUMMY,VOL=&CBWRK 

/IDEF ID=MRXRFFIL,FIL=DUMMY,VOL=&CBWRK 

//DEF ID=MRERRFIL,FIL=-DUMMY,VOL=&CBWRK 

INF CODE=F,GO=EOJ 

HEX PGM=LNKEDT 

//PAR PGM=&PGM,LST=XREF 

/IDEF ID=LIB1,FIL=$SYSOBJLIB,STA=P,VOL=&SYSRS 

/(DEF  ID=INPUT,FIL=SPT—CB—OBJ—MOD,VOL=&VOL 

/IDEF ID=OUTPUT,FIL=SPT--CB—REL—MOD,NUM=1000,SIZ=256,BLK=1, 
// CSD=NO,CON=YES,VOL=&VOL 

//DEF ID=LIST,DEV=PRT 

INF CODE=F,GO=EOJ 

HEX PGM=&PGM,LIB=SPT—CB—REL—MOD,DMP=&DUMP 

/IDEF ID=$LODLIB,F1L=SPT—CB—REL—MOD,VOL=&VOL 


SAMPLE PROCEDURE-CALL, AS SUBMITTED 


//JOB NAME=CALL1 

HCALL PROC=CBLEEX,LIB=COBOLSRC,PGM=EXT001,VOL=SPTV03,CBWRK=SPT V03,SYSRS=DEV100 
TELL PAU=YES,OP=READY PRINTER WITH 3-PART PAPER AND REPLY “GO” 

//EOS 
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SAMPLE PROCEDURE-CALL, AS LISTED ON SYSOUT 


JOB CALL 1 ENTERED SYSTEM ON 110972/72314 AT 070227 BY $JMOIR 6.2 — 09/20/72 
//JOB NAME=CALL1 

JMJI0960 070308 JOB CALL1 QUEUED 

JMJIO980 070316 JOB CALL1 INITIATED 


HICALL PROC=CBLEEX,LIB=COBOLSRC,PGM=EXT001,VOL=SPTV03,CBWRK=SPTV03,SYSRS=DEV100 
; PROCEDURE: CBLEEX 


. LE. COBOL COMPILATION 
LINK EDIT 

EXECUTE 

* 

‘ VARIABLES REQUIRED DEFAULT DESCRIPTION 

De a Fe ee ee ne Se ee SS SS Se SS 

: PGM YES NONE PROGRAM AND SOURCE MEM 

: SIZE NO 1000 MAX # OF SOURCE STATEMENTS 
VOL NO SPTVO1 ALLOC OF 1/0 FILES 

‘ SRCFIL NO COBSRC SOURCE FILE NAME 

: SVOL NO SPTVO1 VOLUME FOR ABOVE 

: CBWRK NO SPTVO1 ALLOC OF COBOL WORK 

: SYSRS NO RLS100 SYSRES VOL ID 

: DUMP NO NO DUMP PARM ON //EX 


HEX PGM=COBOL 

//PAR OBJECT=YES,DMAP=YES,PMAP=YES,XREF=YES, 

//PAR OMEM=EXT001,IMEM=EXT001,MAXS1IZ=1000 

//OEF ID=QUTPUT,FIL=SPT—CB—OBJ—MOD,STA=T,NUM=1000,SIZ=256, 
// BLK=1,CSD=NO,VOL=SPTV03 

JMS10230 ALLOCATED SPT—CB—OBJ—MOD WITH BLK SIZE 0256 
//DEF = {tD=INPUT,FIL=COBSRC,STA=(P,1), VOL=SPTV01,CAT=NO 

/(DEF 1ID=LIST,DEV=PRT 

//DEF ID=MRSIFIL,FIL=-DUMMY,VOL=SPTV03 

H/DEF ID=MRELFIL,FIL=DUMMY,VOL=SPTV03 

//DEF ID=MRTEXT01,FIL=-DUMMY,VOL=SPTV03 

//DEF ID=MRVIRTAL,FIL=DUMMY,VOL=SPTV03 

//DEF ID=MRXPRFIL,FIL=DUMMY,VOL=SPTV03 

//DEF ID=-MRERRFIL,FIL=DUMMY,VOL=SPTV03 


JMST0210 PURGED MRERRFIL 
JMST0210 PURGED MRSIFIL 

JMST0210 PURGED MRTEXTO01 
JMSTO210 PURGED MRVIRTAL 


JMST0210 PURGED MRXRFFIL 
JMSTO210 PURGED MRELFIL 


JMST0190 PGM NAME: COBOL IF CODE: COMPLETION CODE: 0 
JMSTO160 STEP START TIME 07:03:49 

JMST0170 STEP STOP TIME 07:05:53 

JMSTO150 STEP ELAPSED TIME 00:02:04 

//VF CODE=F,GO=EOSJ 


I/EX PGM=LNKEDT 

//PAR PGM=EXT001,LST=XREF 

/IDEF 1D=LIB1,FIL=$SYSOBJLIB,STA=P,VOL=DEV100 

//DEF ID=INPUT,FIL=SPT—CB—OBJ—MOD,VOL=SPTV03 

/(DEF t0=OUTPUT,FIL=SPT—OB—REL—MOD,NUM=1000,SIZ=256,BLK=1, 


// CSD=NO,VOL=SPTVO03 

JMS10230 ALLOCATED SPT—CB—REL—MOD WITH BLK SIZE 0256 
//DEF ID=LIST,DEV=PRT 

JMSTO210 PURGED LNKEDTVTFLE 

JMST0190 PGM NAME: LNKEDT IF CODE: COMPLETION CODE: 0 
JMSTO160 STEP START TIME 07:06:14 

JMST0170 STEP STOP TIME 07:06:38 

JMST0150 STEP ELAPSED TIME 00:00:24 


INF CODE=F,GO=EOJ 
I/EX PGM=EXT001,L1B=SPT—CB—REL—MOD,DMP=NO 
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//DEF ID=$LODLIB,FIL=SPT—CR—REL—MOD,VOL=SPTV03 
/ITELL PAU=YES,OP=READY PRINTER WITH 3-PART PAPER AND REPLY “GO” 


JMST0190 PGM NAME: EXTO001 IF CODE: COMPLETION CODE: 0 
JMSTO160 STEP START TIME 07:06:47 

JMST0170 STEP STOP TIME 07:06:51 

JMST0150 STEP ELAPSED TIME: 00:00:04 

EOS 

JMJTOOOO PURGED SPT—CR—OBJ—MOD 

JMJTOOO0O PURGED SPT-—-CR-—REL—MOD 

JOB CALL1 COMPLETED ON 110972/72314 AT 070701 RY $JMJ1 6.2 — 09/20/72 
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H. VARIABLE REPLACEMENT RULES 


LONGEST VARIABLES REPLACED FIRST 

All variables supplied on either the //CALL or the //DEC are placed in a variable table. 
Entries in this table are made in the order of diminishing length: for example, VARI will 
appear in the table prior to VAR or CAT. A field in a procedure which contains 
&VARILOG is capable of being replaced by a value attached to any of seven variables (V, 
VA, VAR, etc.); but will be only replaced by the value attached to the longest of the 
variables. Thus, one should insure that each of the variables in a procedure is not a beginning 
portion of some other variable within the same procedure. 


EXAMPLE 


/ICALL PROC=TEST,VAR=SYSTEM 


PROCEDURE — TEST: 
//DEC VARERR=TEST 
//EXEC PGM=UTIL63 


//IPAR FILE=&®VARERRLOG,OPT=FULL 


RESULTING CONTROL LANGUAGE: 
/IEXEC PGM=UTIL63 


//PAR FILE=TESTLOG,OPT=FULL 


The caller had presumably intended the //PAR to appear as follows: 
/IPAR FILE=SYSTEMERRLOG,OPT=FULL 
This would, indeed, have been the result if the variable, VARERR, had not also been in the 


replacement table; or if the table had been ordered by increasing lengths rather than by 
diminishing lengths. 
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VARIABLES TERMINATED BY A COMMA, BLANK, OR EQUAL SIGN 
A variable that is terminated by an equal sign will be entered in the replace table along with 
its associated value. A variable that is terminated by a comma or a blank is not entered in 
the replace table, because it has no associated value to be used in the replacement 
procedure. A comma as a variable delimiter indicates that more variables exist and the 
PROC scanning routine proceeds to look for the next variable. If a blank delimits a variable, 
then no more variables are expected and the PROC scanning routine terminates its search 
for more variables. 
EXAMPLES 
1) /ICALL PROC=TEST,VAR=SYS,VOL=$Y$PAK 

Two variables, VAR and VOL, are entered in the replace table. 
2) //DEC VAR,DEV=DISC,VOL 

A variable, DEV, is entered in the replace table. 


3) /I(CALL PROC=TEST,VAR ,VOL=DEV100 


No variables are entered in the replace table. The blank stops the scan so that 
VOL=DEV100 is not found. 


4) //CALL PRO=TEST,VOL=DEV100,VAR,D=DOG 
Two variables, VOL and D, are entered in the replace table. 


Currently, no diagnostic appears for a variable that does not have a value associated with it. 


VALUES TERMINATED BY A COMMA OR A BLANK 

The PROC scan routine searches for values in the following manner. The cursor is positioned 
to the column immediately following the equal sign. The scan routine then moves the cursor 
to the first non-blank character which is the start of the value character string. The value 
character string is terminated by a blank or a comma whichever occurs first. A comma as an 
ending delimiter indicates that further variables are expected. A space indicates that no 
further variables are to be processed. 

EXAMPLES 

1) //DEC VAR=SYS,VOL=$Y$PAK 


Two values, SYS and $Y$PAK, are entered in the replace table. 
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2) //CALL PRO=TEST,VAR= SYS,VOL= $Y$PAK 
Two values, SYS and $Y$PAK, are entered in the replace table. 
3) //DEC VAR=SYS ,VOL=SYSPAK 


One value, SYS, is entered in the replace table. The blank terminates the scan so that 
the variable, VOL, is not found. ; 


4) //DEC VAR=SYS,VOL= ,D=DISC,TYP 


Three values, SYS, the null string, and DISC, are entered in the replace table. 


SIZE LIMITATIONS 

REPLACE TABLE 

The replace table is 512 bytes long and is filled according to the following formula: 
n 


512 < RTS = = (Xi+Vi+4) 
i=1 


where n = number of variables having associated value 
x = length of variable character string 
y = length of value character string 


RTS = replace table size 


An overflowed replace table produces the message, TOO MANY PROC VARIABLES. 


SCAN BUFFER 


The scan buffer is used to hold the scanned variable or value. Its size is 17 bytes. Therefore, 
a variable or value is restricted to seventeen characters. 
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CONTINUATION STATEMENTS 
The PROC routine will build a continuation statement when the substitution of values for 
variables causes the length of the original statement to exceed 71 column positions. A 


comma or blank is used as a separation point for moving characters to a continuation 
statement. 


EXAMPLE 
//DEF F=EXTRALONGFILENAME 


/IDEF ID=IDENT,VOL=SYSRES,FIL=&F 


=f OO 
anorond 


The substitution of the value, EXTRALONGFILENAME, for the variable, &F, would cause 
the //DEF statement to go beyond column 71 so the following two statements are 
produced. 


/IDEF ID=IDENT,VOL=SYSRES 
// FIL = EXTRALONGFILENAME 


If the portion of the original statement that is being moved to a continuation statement is 
comments, thena * statement is built rather than a// statement. 


The continuation statements for //PAR, //TELL, and * are //PAR, //TEL, and * 
respectively. 
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INDEX 


ABEND 
ACCEPT macro 
Allocate routine 
/* statement 


BLOCK (BLK) parameter 
BUFFER (BUF) parameter 
//CALL statement 


CATALOG (CAT) parameter 
Cataloged procedures 


CHECKOUT 
Checkout debugging 
CHECKOUT file 
CLS parameter 


CODE (COD) parameter 
Command field 


Comment field 
* (comment) statement 


CONTIGUOUS (CON) parameter 


Continuation, statement 
Control flow 

Control Language definitions 
Control Language Services 
Control Language statements 


the 

/* CLS 
//CALL 

* (comment) 


//DATA 


1-11;D-1 
D-2 

1-8 
2-1,41;A-2; 
B-8;C-4 


2-23,27,28, 
28b,39;B-3, 
6,8;C-2,3,4 
2-21,28; 
B-3;C-2 


2-1,33,34; 
4-1;A-2; 
B-7;C-4 
2-23,28; 
B-4;C-2 
1-6;4-1 

thru 4-4 
3-2 

E-7 

3-1 
2-37,39; 
B-8;C-4 
2-31,32; 
B-7;C-4 

2-4 

2-6 
2-1,8,10; 
A-2;B-1;C-1 
2-24,27,28, 


28b,39;B-4,6,8; 


C-2,3,4 

2-5 

1-15 

1-1 

1-2;E-3 
1-1;A-1,2; 
B-1,2; 
C-1,2 
2-2,41; 
A-2;B-8;C-4 
2-41 
2-1,33,34; 
4-1;A-2; 
B-7;C-4 
2-1,8,10; 
A-2;B-1;C-1 
2-1,37; 
A-1,2; 
B-8;C-4 


Control Language statements (continued) 


//DECLARE 


//DEFINE 


//EOT 


//EXECUTE 


INF 


//SJOB 
//PAR 
//ROUTE 


//SET 


//TELL 


Control program 
COPY parameter 


CSD parameter 

Data delimiter 

Data level 

Data Management 
//DATA statement 

DATE (DAT) parameter 
Debug 

DEBUG file 

DEBUG (DEB) parameter 
Debug program 


//DECLARE statement 


Default values 
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2-1,33;4-1; 
A-1;B-7;C-4 
1-8;2-1,11,15, 
28;A-1,2; 
B-3;C-1 
1-1,8,11; 
2-1,8,10; 
A-2;B-1;C-1 
1-1,8,11; 
2-1,11; 
A-1,2; 
B-1;C-1 
1-8;2-1,31; 
A-1,2; 
B-7;C-4 
1-1;2-1,8; 
A-1;B-1;C-1 
1-8;2-1,11,14; 
A-1;B-2;C-1 
2-1,4,27,41; 
A-1;B-5;C-3 
2-1,11,28d; 
A-1,2; 
B-6;C-3 
1-8;2-1,11, 
30;B-6;C-3 
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//DEFINE (DEF) statement 


Device assignment 
disc 
magnetic tape 
telecommunication 
unit record 

DEVICE (DEV) parameter 


Devices 

Disc allocation 

Disc device 

Disc file expansion 

Disc file organization 
DISPLAY macro 

DUMP (DMP) parameter 


Dump program 


EHALT 
//EOJ statement 


EXPAND (EXP) parameter 


//EXECUTE (EXEC or EX) statement 


File definition 

File Description Table 

File sharing 
FILENAME(FIL) parameter 


Files 
CHECKOUT 
disc 
SYSIN 
SYSOUT 
Format rotation 
FORMS (FOR) parameter 


GO parameter 


HALT 


1-8;2-1,11, 
15,28:A-1, 
2;B-3;C-1 


3-3 
2-19,27,28, 
28a;B-3,5;C-2, 
3 

3-1 
2-22;3-6 
3-5 
2-26;3-7 
3-6 

D-2 
2-11,12; 
B-2;C-1 

E-4 


1-11;D-1 
1-1,8,11; 
2-1,8,10; 
A-2;B-1; 
C-1 
2-26,28; 
B-5;C-3 
1-1,8,11; 
2-1,11; 
A-1,2; 
B-1;C-1 


3-3 

E-1,4 

2-18 
2-16,27,28, 
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HOLD (HLD) parameter 


Identifier field 
IDENTIFIER (IDENT or 1D) 
parameter 


//\F statement 


ILOCATION (ILOC or ILO) parameter 


index block size 
Input data spooling 
Input reader 
Interstep level 


IVOLUME (IVOL or IVO) parameter 
JCT 

JDATE macro 

Job 


Job control table 


Job initiator 
Job level 


//JOB statement 
Job step 
Job terminator 
Job stream conventions 
Job queuing 
Keyword operand field 
LABEL (LAB) parameter 
Language description 
Language format 
Levels 

data 

interstep 

job 

procedure 


step 


2-10,27,28c; 
B-1,6; 
C-1,3 


2-3 
2-16,27,28, 
28a;B-3,5; 
C-1,3 


-4-8;2-1,31; 


A-1,2; 
B-7;C-4 
2-25,28; 
B-5;C-2 
F-1 
1-3,5 
1-3,6,7 
2-1,31; 
A-1;C-4 
2-25,28; 
B-5;C-2 


1-8 

D-1 

1-1 
1-8;E-1, 
3,14 
1-3,8,9 
2-1,8; 
A-1;C-1 
1-1;2-1,8; 
A-1;B-1;C-1 
1-1 
1-3,11,14 
2-41 
1-3,4a 


2-5 


2-20,28; 
B-3;C-2 
2-1 

2-2 

2-1 
2-1,36; 
A-2;C-4 
2-1,31; 
A-1;C-4 
2-1,8; 
A-1;C-1 
2-1,33; 
A-2:C-4 
2-1,11; 
A-1;C-1 
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LIBRARY (LIB) parameter -  2-11,12,34, Parameters (Continued) 
35;B-2,7; DEVICE 2-19,27,28, 
C-1,4 28a;B-3,5; 
LIBUTIL program 4-3 C-2,3 
LOCATION (LOC) parameter 2-23,28; DUMP 2-11,12; 

, B-3;C-2 B-2:C-1 
$LODLIB 3-2 EXPAND 2-26,28; 
Logical I/O 3-7 B-5;C-3 

FILENAME 2-16,27,28, 
Magnetic tape device 3-3 28a,38; 
MEMLIM macro D-2 B-3,5,6,8; 
MSC parameter 2-18,28; C-1,3,4 
B-3;C-2 FORMS 2-27 ,28d; 
B-6;C-3 
NAME (NAM) parameter 2-8,9,11, GO 2-31 ,32; 
12;B-1,2; B-7;C-4 
C1 HOLD 2-10,27,28c; 
Non-standard labeled tape 3-4 B-1,6; 
NUMBER (NUM) parameter 2-22,27,28, C-1,3 
28c,39; IDENTIFIER 2-16,27,28, 
B-3,5,6,8; 28a;B-3,5; 
C-2,3,4 C-1,3 
ILOCATION 2-25,28; 
OP parameter 2-30;B-6; B-5;C-2 
C-3 IVOLUME 2-25,28: 
ORGANIZATION (ORG) B-5;C-2 
parameter 2-20,28; LABEL 2-20,28; 
B-3,4;C-2 B-3;C-2 
Output data spooling 1-3 LIBRARY 2-11,12,34,35; 
B-2,7;C-1,4 
//PAR statement 1-8;2-1,11, LOCATION 2-23,28; 
14;A-1;B-2; B-3;C-2 
C-1 MSC 2-18,28; 
Parameters B-3;C-2 
BLOCK 2-23,27,28, NAME 2-8,9,11,12; 
28b,39;B-3, B-1,2;C-1 
6,8;C-2,3,4 NUMBER 2-22,27,28, 
BUFFER 2-21,28; 28c,39;B-3, 
B-3;C-2 5,6,8; 
CATALOG 2-23,28; C-2,3,4 
B-4;C-2 OP 2-30;B-6;C-3 
CLS 2-37,39; ORGANIZATION 2-20,28; 
B-8;C-4 B-3,4;C-2 
CODE 2-31,32; PAUSE 1-8;2-30; 
B-7;C-4 B-6;C-3 
CONTIGUOUS 2-24,27,28, PGM 2-11,12;B-1; 
28b,39;B-4, C-1 
6,8,C-2,3,4 PRIORITY 2-9;B-1;C-1 
COPY 2-27 ,28c; PROC 2-34 ;B-7;C-4 
B-6;C-3 RESTART 2-11,13; 
CSD 2-20,28; B-2;C-1 
B-3;C-2 RETENTION 2-21,28; 
DATE 2-28e;B-6;C-3 B-3;C-2 
DEBUG 2-13;B-2;C-1 SAVE 2-27 ,28c; 


B-6;C-3 
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Parameters (Continued) 
SIZE 


SPOOL 
SPREAD 
STATUS 
SWITCH 
TIME 


TYPE 
UCS 


USER 
VERIFY 


VOLUME 


Partition layout 


Partition space pool 
PAUSE (PAU) parameter 


Permanent files 
PGM parameter 


Physical 1/O 
POST macro 
PRIORITY (PRI) parameter 


Private load library 
PROC (PRO) parameter 


Procedure level 


Program description 
Program execution 


Relocating program loader 
Replacement rules 

Required run-time variables 
RESTART parameter 
RETENTION (RET) parameter 
//ROUTE statement 


RPOST macro 


2-22,27,28, 


28b;B-3,5;C-2, 


3 
2-27,28b; 
B-5;C-3 
2-24,28; 
B-4;C-2 
2-17,28; 
B-3;C-2 
2-27,29; 
B-6;C-3 
2-11,12; 
B-2;C-1 
2-9;B-1;C-1 
2-27,28c; 
B-6;C-3 
2-8,9; 
B-1;C-1 
2-24,28; 
B-4;C-2 
2-20,27,28, 
28a;B-3,5; 
C-2,3 
E-1,2 
E-1,5,6 
1-8 ;2-30; 
B-6;C-3 
2-18 
2-11,12; 
B-1;C-1 
3-8 

D-2 
2-9;B-1; 
C-1 
3-2;E-1 
2-34;B-7; 
C-4 
2-1,33; 
A-2;C-4 
1-4 

1-12a 


1-6;E-3 
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2-35 
2-11,13; 
B-2;C-1 
2-21,28; 
B-3;C-2 
2-1,4,27,41; 
A-1;B-5;C-3 
D-2 


Sample jobs 
SAVE parameter 


Scratch files 
SDATE macros 
//SET statement 


SETIF macro 
Sequence field 
Shared drive 

SIZE (SIZ) parameter 


Space request 
SPREAD (SPR) parameter 


SPOOL (SPL) parameter 


Spooling 

input data 

output data 
Standard labeled tapes 
Standard linkage area 
Statement continuation 
Statement interpreter 
Statement specification 
STATUS (STA) parameter 


Step initiator 
Step level 


Step terminator 
SWITCH (SWI) parameter 


SYSCRD 
SYSIN file 
SYSOUT file 


$SYSPROCLIB 

System control interface 
System input file 
System output file 


Task control table 
Telecommunications 
Telecommunication device 
//TELL statement 


Temporary files 
TIME (TIM) parameter 


TYPE (TYP) parameter 
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G-1 
2-27,28c; 
B-6;C-3 
2-17 

D-1 
2-1,11,28d; 
A-1,2; 


2-22,27,28, 
28b;B-3,5; 
C-2,3 

E-7 
2-24,28; 
B-4;C-2 
2-27 ,28b; 
B-5;C-3 


1-3,5 

1-3 

3-4 
E-1,3,9 
2-5 

1-6 

2-8 
2-17,28; 
B-3;C-2 
1-3,8,10 
2-1,11; 
A-1;C-1 
1-3,11,13 
2-27,29; 
B-6;C-3 
2-19,37 
1-8,11;3-1 
1-8,11; 


E-1,3,11 
E-8 

3-5 
1-8;2-1,11, 
30;B-6;C-3 
2-17 
2-11,12; 
B-2;C-1 
2-9;B-1; 
C-1 
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UCS parameter 2-27 ,28c;B-6; VERIFY (VER) parameter 2-24,28; 

C-3 B-4;C-2 
Unit record devices - 3-3 VOLUME (VOL) parameter 2-20,27,28, 
Unlabeled tape 3-5 28a;B-3,5; 
Unshared drive | 3-6 C-2,3 
USER (USE) parameter 2-8,9; 

B-1;C-1 Work files 2-17 
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